Dim strBet As String
        Dim intU, intG, intVG, intAlla, intUP, intGP, intVGP As Integer
        strBet = InputBox("Skriv in ett betyg. u (Underkänt), g (Godkänt)" & vbCrLf & _
        "eller vg (Väl Godkänd). Avsluta med s!")
        Do Until strBet = "s"
            If strBet = "u" Then
                intU = intU + 1
            ElseIf strBet = "g" Then
                intG = intG + 1
            ElseIf strBet = "vg" Then
                intVG = intVG + 1
            Else
                InputBox("Betyget inte rätt angivet!" & vbCrLf & _
                "Skriv in ett betyg. u (Underkänt), g (Godkänt)" & vbCrLf & _
                "eller vg (Väl Godkänd). Avsluta med s!")
            End If
            strBet = InputBox("Skriv in ett betyg. u (Underkänt), g (Godkänt)" & vbCrLf & _
            "eller vg (Väl Godkänd). Avsluta med s!")
        Loop
        intAlla = intU + intG + intVG
        intUP = intU / intAlla * 100%
        intGP = intG / intAlla * 100%
        intVGP = intVG / intAlla * 100%

        MsgBox("Antal U:   " & intU & "st   " & intUP & "%" & vbCrLf & _
        "Antal G:   " & intG & "st   " & intGP & "%" & vbCrLf & _
        "Antal VG: " & intVG & "st   " & intVGP & "%" & vbCrLf & _
        "Totalt Antal Betyg: " & intAlla)