' Nur Zahlen (optional Komma und Punkt)
Public Sub Check_NumericKey(KeyAscii As Integer, _
  Optional oText As TextBox = Nothing)
 
  Select Case KeyAscii
    ' Zahlen, Backspace und Return
    Case 48 To 57, 8, 13
    Case Else
      ' alle anderen Zeichen ignorieren
      KeyAscii = 0
  End Select
  End Sub

Private Sub txt_eingabe_KeyPress(KeyAscii As Integer)
mod_rechnen.Check_NumericKey KeyAscii
    If KeyAscii = 13 Then
    If txt_eingabe.Text = ergebnis Or versuche = 3 Then
            tabellen_eingabe
            lbl_richtig_falsch.Caption = "Richtig!!!"
            versuche = 1
            lbl_versuche = versuche
            'hier werden die zufallszahlen produziert
            aufgabenmacher
    Else
            lbl_richtig_falsch.Caption = "Falsch!!!"
            txt_eingabe.Text = ""
            versuche = versuche + 1
            lbl_versuche = versuche
            lbl_timer.Caption = Format(Time - Startzeit, "hh:mm:ss")
    End If
        If wiederholung = anzahl_wiederholung Then
                frm_tabelle.grid_tabelle.Col = 3
            For i = 1 To anzahl_wiederholung - 1
                frm_tabelle.grid_tabelle.Row = i
                gesamtsec = gesamtsec + Second(frm_tabelle.grid_tabelle.Text)
                gesamtmin = gesamtmin + Minute(frm_tabelle.grid_tabelle.Text)
                gesamthour = gesamthour + Hour(frm_tabelle.grid_tabelle.Text)
            Next i
            frm_tabelle.grid_tabelle.Row = anzahl_wiederholung
            frm_tabelle.grid_tabelle.Text = TimeSerial(gesamthour, gesamtmin, _
              gesamtsec)
            Load frm_frage_wiederholung
            frm_frage_wiederholung.Visible = True
            wiederholung = 0
        End If
    End If
End Sub