Dim worte As Variant
Dim fehler As Integer
Dim n As Integer
 
Private Sub Form_Load()
 Text1.Text = "auto,aldi,alarmanlage"
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then Exit Sub
If KeyCode = vbKeyRight Then Exit Sub
KeyCode = 0
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 
worte = Split_String(Text1.Text, ",")
 
On Error Resume Next
 
For n = 0 To UBound(worte)
 
 If LCase(Mid$(worte(n), 1, 1)) <> "a" Then
 
  KeyCode = 0
  dummywort = InStr(1, Text1.Text, worte(n))
  Text1.SelStart = dummywort - 1: Text1.SelLength = 1
 
 End If
 
Next
 
End Sub

Interessante Lerntools auf
www.abc-braintools.de.vu