Public Richtige As Integer
Public Falsche As Integer

Sub AntwortPrüfen()
' Diese Routine hast du bereits irgendwo
 
If Antwort = RichtigeAntwort Then
' Wenn die richtige Antwort gegeben wurde
Richtige = Richtige + 1
Else
' Wenn eine falsche Antwort gegeben wurde
Falsche = Falsche + 1
End If
 
' Anzahl in Textbox schreiben
' Setze für "TextBox" dein Steuerelement ein.
TextBox.Text = "Es wurden " & Richtige & " Antworten gegeben."
End Sub

Richtige = 0
Falsche = 0

Label.Caption = "Es wurden " & Richtige & " richtige Antworten gegeben."

Press any key to continue or any other key to quit...