Public Function PRUEFUNG_SONDERZEICHEN(ByVal EINGABETEXT As String) As _
      Boolean
        For Each c As Char In EINGABETEXT
            If c <> ","c AndAlso c < "0"c Or c > "9" Then Return False
        Next
        Return True
    End Function

    Public Function PRUEFUNG_SONDERZEICHEN(ByVal EINGABETEXT As String) As _
      Boolean
        Dim rx As New System.Text.RegularExpressions.Regex("^[0-9,]+$")
        Return rx.IsMatch(EINGABETEXT)
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist