Public Function PRUEFUNG_SONDERZEICHEN(ByVal EINGABETEXT As String) As Boolean
 
  Dim i As Long
 
  For i = 1 To Len(EINGABETEXT)
    'PRÜFUNG: ZULÄSSIG SIND 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, Komma
    If Mid$(EINGABETEXT, i, 1) Like "[!0-9,]" Then
      PRUEFUNG_SONDERZEICHEN = True
      Exit Function
    End If
  Next i
 
End Function

Gruss,

Zardoz