[color=green]'Beispiel für Abgleich mit nur einer Zahl
Sub Makro1()
    Dim I As Long, S As String
 
    S = "12345" [color=green]'steht stellvertretend für den Text im Eingabefeld 
    ' (Text1.Text oder so)
 
    I = 12345   [color=green]'steht stellvertretend für irgendeine Zahl
 
    If I = S Then ZeigeMsg
 
 
End Sub
 
Sub ZeigeMsg()
 
    MsgBox "Passt"
 
End Sub
 
 
[color=green]'Beispiel für Abgleich mit mehreren Zahlen
Sub Makro2()
    Dim S As String
 
    S = "12345" [color=green]'steht stellvertretend für den Text im Eingabefeld 
    ' (Text1.Text oder so)
 
    [color=green]'Zahl1-6 steht stellvertretend für irgendeine Zahl oder 
    ' Variable
 
    Select Case S
        Case Zahl1, Zahl2:      [color=green]'starte ZeigeMsg1 wenn S=Zahl1 
        ' oder S=Zahl2
            ZeigeMsg1
        Case Zahl3:             [color=green]'starte ZeigeMsg2 wenn 
        ' S=Zahl3
            ZeigeMsg2
        Case Zahl4 To Zahl6:    [color=green]'starte ZeigeMsg3 wenn S>=Zahl4 
        ' und S<=Zahl6
            ZeigeMsg3
    Case Else                   [color=green]'wenn bis hier nix entsprechendes 
    ' passte dann folgendes ausführen
        ZeigeMsg4
    End Select
 
End Sub
 
Sub ZeigeMsg1()
 
    MsgBox "Passt, S entspricht Zahl1 oder Zahl2"
 
End Sub
 
Sub ZeigeMsg2()
 
    MsgBox "Passt, S entspricht Zahl3"
 
End Sub
 
Sub ZeigeMsg3()
 
    MsgBox "Passt, S liegt zwischen Zahl4 und Zahl6 oder entspricht Zahl4 oder" & _
      "Zahl6"
 
End Sub
 
 
Sub ZeigeMsg4()
 
    MsgBox "Nix passt!"
 
End Sub

Viel Spass,
R@lf