Private Sub Command1_Click()
 
b_mon = 1 Or 8 Or 15
h_mon = 0 Or 6 Or 17 Or 23 Or 28 Or 34 Or 45 Or 51 Or 56 Or 62 Or 73 Or 79 Or _
  84 Or 90
 
Dim weg As String
weg = Text1.Text
If Len(weg) = 4 Then GoTo weiter
Exit Sub
weiter:
Text2.Text = Left(weg, 2)
Text3.Text = Right(weg, 2)
 
If Text2.Text = b_mon Then GoTo bM
Exit Sub
bM:
If Text3.Text = h_mon Then GoTo okay
msgbox "Die Zahl " & Text3.Text & " ist nicht in der variablen 'h_mon'" & _
  "vorhanden!" 
Exit Sub
okay:
MsgBox "die schnittpunktzahl liegt bei  6"
End Sub