Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Puedes usar el siguiente codigo que encontre por la web :
Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 46 ' Numeros del 0 al 9, El punto decimal Case Else: KeyAscii = 0 End Select End Sub