Private Sub Ueberpruefen()
 
Dim Zufallszahl As Long
 
'Eingabe überprüfen, Wenn richtig dann...
    If Eingabe = Check Then
 
    'Rückmeldung für richtiges Ergebnis ausgeben
        Ausgabe.ForeColor = &HC000&
        Ausgabe.Caption = "Richtig!"
 
    'Richtig Counter um 1 erhöhen
        richtig_ausgabe = richtig_ausgabe + 1
 
    'Nächstes Wort anzeigen
        Do
        Randomize
        Zufallszahl = Rnd * nCount_ausgabe
        Loop Until Zufallszahl < nCount_ausgabe
        vokabeldatenquelle.Recordset.Move (Zufallszahl - 1)
        Ausgabe = Zufallszahl
 
    'Eingabefeld leeren
        Eingabe = ""
 
'Wenn Eingabe falsch, dann...
    Else
 
    'Rückmeldung für falsche Antwort
        Ausgabe.ForeColor = &HFF&
        Ausgabe.Caption = "Falsch!"
 
    'Falsch Counter um 1 erhöhen
        falsch_ausgabe = falsch_ausgabe + 1
 
    End If
 
End Sub