Function PRUEFUNG_SONDERZEICHEN(ByVal EINGABETEXT As String) As Boolean
  Dim i As Long
  Dim Result As Boolean
 
  Result = False
  For i = 1 To Len(EINGABETEXT)
    Select Case Asc(Mid$(EINGABETEXT, i, 1))
      Case 48 TO 57, 44
        ' Erlaubt: 0 bis 9 und Komma
      Case Else
        ' unerlaubtes Zeichen
        Result = True: Exit For
    End Select
  Next i
  PRUEFUNG_SONDERZEICHEN = Result
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de