rendered paste body 'Hi-Score
If intAntal < Val(lblScore1Antal.Text) Then
strNamn = InputBox("Grattis, du kvalade in på Hi-Score listan. " & vbCrLf & _
"Skriv ditt namn: ")
lblScore5Namn.Text = lblScore4Namn.Text
lblScore5Antal.Text = lblScore4Antal.Text
lblScore4Namn.Text = lblScore3Namn.Text
lblScore4Antal.Text = lblScore3Antal.Text
lblScore3Namn.Text = lblScore2Namn.Text
lblScore3Antal.Text = lblScore2Antal.Text
lblScore2Namn.Text = lblScore1Namn.Text
lblScore2Antal.Text = lblScore1Antal.Text
lblScore1Namn.Text = strNamn
lblScore1Antal.Text = intAntal
ElseIf intAntal < Val(lblScore2Antal.Text) Then
strNamn = InputBox("Grattis, du kvalade in på Hi-Score listan. " & vbCrLf & _
"Skriv ditt namn: ")
lblScore5Namn.Text = lblScore4Namn.Text
lblScore5Antal.Text = lblScore4Antal.Text
lblScore4Namn.Text = lblScore3Namn.Text
lblScore4Antal.Text = lblScore3Antal.Text
lblScore3Namn.Text = lblScore2Namn.Text
lblScore3Antal.Text = lblScore2Antal.Text
lblScore2Namn.Text = strNamn
lblScore2Antal.Text = intAntal
ElseIf intAntal < Val(lblScore3Antal.Text) Then
strNamn = InputBox("Grattis, du kvalade in på Hi-Score listan. " & vbCrLf & _
"Skriv ditt namn: ")
lblScore5Namn.Text = lblScore4Namn.Text
lblScore5Antal.Text = lblScore4Antal.Text
lblScore4Namn.Text = lblScore3Namn.Text
lblScore4Antal.Text = lblScore3Antal.Text
lblScore3Namn.Text = strNamn
lblScore3Antal.Text = intAntal
ElseIf intAntal < Val(lblScore4Antal.Text) Then
strNamn = InputBox("Grattis, du kvalade in på Hi-Score listan. " & vbCrLf & _
"Skriv ditt namn: ")
lblScore5Namn.Text = lblScore4Namn.Text
lblScore5Antal.Text = lblScore4Antal.Text
lblScore4Namn.Text = strNamn
lblScore4Antal.Text = intAntal
ElseIf intAntal < Val(lblScore5Antal.Text) Then
strNamn = InputBox("Grattis, du kvalade in på Hi-Score listan. " & vbCrLf & _
"Skriv ditt namn: ")
lblScore5Namn.Text = strNamn
lblScore5Antal.Text = intAntal
Else
MsgBox("Tyvärr, du tog dig inte in på Hi-Score listan.")
End If