'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