como valido numero y el punto en un textBox

[culd]

Código:

Public Function EsNumero(KeyAscii) As Boolean
Select Case KeyAscii
    Case 8, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 13, "."
        EsNumero = True
    Case Else
        EsNumero = False
    End Select
End Function

Es la hise hace tiempo y la uso siempre....

En el evento "KeyAscii" del textbox, tenes que llamar a la funcion. te doy un ejemplo:

Código:

If EsNumero(KeyAscii) = False Then
       KeyAscii = 0 ' con esto no escribe ese caracter
       Msgbox "Solo se pueden ingresar numeros y punto" ' le avisamos al usuario
End If

Eso es todo