Forzar a tipos de datos en textbox

[seba123neo]

Hola,otra forma seria asi:

Código:

Private Sub Text10_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789,-" & Chr(8), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

solo acepta los caracteres que le pongas en donde dice "0123456789,-",tambien podes combianar letras y numeros,etc.

saludos.