Public Function CheckInputMask(ByVal sInput As String, _
  ByVal sMask As String) As Boolean
 
  Dim bResult As Boolean
  Dim i As Integer
 
  ' Eingabe auf bestimmtes Format hin prüfen
  bResult = False
 
  If Len(sInput) = Len(sMask) Then
    ' Länge passt schon einmal    
    For i = 1 To Len(sMask)
      Select Case Mid$(sMask, i, 1)
        Case "#"
          ' numerisches Zeichen erwartet
          bResult = IsNumeric(Mid$(sInput, i, 1))
 
        Case "&"
          ' alphanumerisches Zeichen
          bResult = True
 
        Case Else
          ' sonst. Zeichen
          bResult = (Mid$(sInput, i, 1) = Mid$(sMask, i, 1) )
      End Select
 
      ' Unstimmigkeit gefunden?
      If Not bResult Then Exit For
    Next i    
  End If
 
  CheckInputMask = bResult
End Function

If Not CheckInputMask(txtEingabe.Text, "## / ####") Then
  MsgBox "Ungültige Eingabe!"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de