Private Function NichtZulässigesZeichenIn(ByVal txt As String) As Boolean
        Try
            Dim chr As Char
            For i As Integer = 0 To txt.Length - 1
                chr = txt.Substring(i, 1)
                If Not chr Like "#" AndAlso Not chr = "," Then Return True
            Next
            Return False
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function