Private Sub Form_Load()
txtHierSuchen = "<<BBC><>" + vbCrLf + _
                "<<<ACC><" + vbCrLf + _
                "<<<<ABR<" + vbCrLf + _
                "<<<<<AF<" + vbCrLf + _
                "<A<<<EA<" + vbCrLf + _
                "<A<<<<TD"
 
End Sub
 
'----
 
Private Sub cmdFalse_Click()
txtSuchMuster = _
"??AD????" + vbCrLf + _
"???A????" + vbCrLf + _
"????A???" + vbCrLf + _
"?????A??"
End Sub
 
'----
 
Private Sub cmdTrue1_Click()
txtSuchMuster = _
"???A????" + vbCrLf + _
"????A???" + vbCrLf + _
"?????A??" + vbCrLf + _
"??????A?"
End Sub
'----
Private Sub cmdTrue2_Click()
txtSuchMuster = _
"??A?????" + vbCrLf + _
"???A????" + vbCrLf + _
"????A???" + vbCrLf + _
"?????A??"
End Sub

Man kann nicht immer gewinnen...
Manschmal verliert man...
Manschmal gewinnen halt die anderen !