Hola a todos!!!
A ver qué les parece este código, a mi me ha dado excelentes resultados y lo diseñé para evitar que sean introducidos valores alfanuméricos en campos en los que solo requiero números.
Private Sub txtTexto_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
KeyAscii = KeyAscii
Case Asc(".")
If InStr(1, txtCostoMO.Text, ".") > 0 Then
KeyAscii = 0
Else
KeyAscii = KeyAscii
End If
Case Else
KeyAscii = 0
End Select
End Sub
El código anterior es usado para permitir capturar números decimales, en mi caso como yo soy de México los decimales son introducidos después de un punto, pero si ustedes usan la coma como separador de decimales solo deben cambiar el punto por la coma en el case correspondiente, si se dan cuenta el código incluye la tecla de regreso o borrado, esto es por si llegaran a equivocarse puedan eliminar el o los números mal ingresados.
Saludos a todos y espero que les sea de utilidad, ah y por favor no dejen de informarme como les fue!!!
Suerte!!!!!!