VB 文本框上的小数点验证

在按键事件下，我有一个验证输入字符的函数，这是我的代码。

Public Function vNum2(val As Object)

    Dim result As Boolean = False
    Dim allowedChars As String = "0123456789." & vbBack
    Try


        If allowedChars.IndexOf(val) = -1 Then
            result = True
        End If


    Catch ex As Exception
        MsgBox("Error 1010xVNum2: " & ex.Message)
    End Try

    Return result

End Function

当我输入超过 2 个小数点时，如何验证小数？当我按下另一个点时，文本框将不会接收该字符。

例如： -> 正确的条目 45.23 收到第一个点。 -> 验证条目 45.2.3 将不会收到下一个点。

尝试这个 ：

Public Function vNum2(val As Object)
        Dim result As Boolean = False
        Try
            'Dim allowedChars As String = "42.2.3"
            Dim allowedChars As String = val.ToString()
            'Bellow line will count how many dots are in string, if there one or none, result will be True
            If allowedChars.Where(Function(dots) dots = ".").Count < 2 Then result = True
        Catch ex As Exception
            MsgBox("Error 1010xVNum2: " & ex.Message)
        End Try
        Return result
    End Function