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)
Text3.Text = Mid$(antwort, 1, lang)
 
lang = Len(Text1.Text)
 
'HIER PROCEDURE FÜR BUCHSTABEN ERKENNEN, wenn ORGINALLÖSUNG
'Z.B. D und d wird eingeben,
'??????????????????????????????????????
If Text1.Text = Mid$(antwort, 1, lang) + Str$(32) Then
    Label1.Caption = "Kleiner, statt großer Buchstabe wurde eingebenen"
End If
 
'HIER PROCEDURE FÜR BUCHSTABEN ERKENNEN, wenn ORGINALLÖSUNG
'Z.B. d und D wird eingeben,
'??????????????????????????????????????
If Text1.Text = Mid$(antwort, 1, lang) - Str$(32) Then
    Label1.Caption = "Großer, statt kleiner Buchstabe wurde eingebenen"
End If
 
'ERKENNE GENAU DIE WÖRTER BZW. BUCHSTABEN, GROß UND KLEIN MUß EXAKT SEIN
 
If Text1.Text <> Mid$(antwort, 1, lang) Then
    Label1.Caption = " FEHLER " & Mid$(Text1.Text, Len(Text1.Text), 1)
 
    With Text1
          .SelStart = Len(Text1.Text) - 1
 
          .SelLength = Len(.Text)
    End With
 
    Text1.SetFocus
 
    Exit Sub
Else
 
If Text1.Text = "" Then Exit Sub
 
Label1.Caption = "stimmt"
 
End If
End Sub