Dim antwort As String
Private Sub Form_Load()
antwort = "Das ist die Lösung"
 
Text1.Text = ""
End Sub
 
 
Private Sub Text1_Change()
Dim lang As Integer
lang = Len(Text1.Text)
 
    If UCase(Text1.Text) <> UCase(Mid$(antwort, 1, lang)) Then
 
'Buchstabe stimmt nicht überein, bleibe am letzten Buchstaben und warte 
'auf korrekte Eingabe
 
     With Text1
              .SelStart = Len(Text1.Text) - 1
 
              .SelLength = Len(.Text)
        End With
    End If
 
 
If UCase(Text1.Text) = UCase(antwort) Then
MsgBox "WORT STIMMT"
Else