Hola buenas lamento molestarlos miren tengo un pequeñísimo problema el cual es tengo un textbox el cual debe dejar escribir solo números y un punto para números decimales la cosa esta en que como tengo el código hasta el momento

no puedo ingresar:
                           - .423783 (lo cual esta bien)
pero si puedo ingresar:
                                 - 4...45 (lo cual esta mal)

yo lo que quiero es que no pueda ingresar mas de un punto en el textbox les dejo el codigo a continuación.

Function ValidDigits(ByVal Digito As String, ByVal Texto As String) As Boolean
        Dim entero As Integer = CInt(Asc(Digito))
        Dim valorePermitidos As String = "1234567890."
 
        If entero = 8 Then
            ValidDigits = False
        Else
 
            If InStr(valorePermitidos, Digito) = 0 Or InStr(".", Digito) = 11 Then
                ValidDigits = True
                Beep()
            ElseIf IsNumeric(Texto) Then
                ValidDigits = False
            Else
                ValidDigits = True
                Beep()
            End If
 
        End If
 
        Return ValidDigits
 
    End Function

Desde ya muchas gracias

muchas gracias