Perdón por el retraso pero recien hoy ingrese al portal.....
Te agrego un ejemplo de un textbox en el cual se ingresa el total de factura de gastos.
Con el evento KeyPress me aseguro que el usuario solo ingrese numeros y el punto.
Luego utilizo el evento Validate para asegurar que lo ingresado sea un nro.
Ojala te ayude..... Si aun sigues con problemas enviame un mail..
Private Sub txtTotalFactura_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys ("{Tab}")
If (KeyAscii = 46) Or ((KeyAscii >= 48 And KeyAscii <= 57)) Or (KeyAscii = 8) Then
'KeyAscii = 0
Else
KeyAscii = 0
End If
End Sub
Private Sub txtTotalFactura_Validate(Cancel As Boolean)
If txtTotalFactura <> "" Then
If Not IsNumeric(txtTotalFactura) Then
Cancel = True
MsgBox "Valor Incorrecto!!", vbCritical, gTituloMsgBox
txtTotalFactura = ""
txtTotalFactura.SetFocus
Else
If CDbl(txtTotalFactura) <= 0 Then
Cancel = True
MsgBox "Total de Factura debe ser > 0.", vbCritical, gTituloMsgBox
txtTotalFactura.SetFocus
End If
End If
End If
End Sub