SoloCodigo

Estimado tengo el mismo problema que lo solucione con el siguiente codigo:

Private Sub caudal_KeyPress(KeyAscii As Integer)
Dim numeros As String * 12
Dim num As String
Dim v As Integer
 numeros = "0123456789," & vbBack
  num = Chr(KeyAscii)
v = InStr(1, numeros, num)
If v = 0 Then
      KeyAscii = 0
End If
End Sub

pero me da un error cuando borro el ultimo digito, o el primero que ingrese, con el backspace.
creo q es debido a que asigno el valor engresado en el textbox a una variable de esta manera.


Public CAU As Single

Private Sub CAUDAL_Change()
CAU = CAUDAL.Text
End Sub

espero me puedan ayudar, de antemano gracias....