Esta función Ingresa_Numeros lo que realiza es limitar el ingreso de caracteres para así permitir limitar solo a números con o sin signo, con a sin punto decimal, con o sin limitación de decimales etc..

Para ello debemos pasar a la función el keyascii aprimido y el textbox en cuestión

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Ingresos_Numeros(KeyAscii, Text1)
End Sub

Previamente debemos definir el tag del textbox de acuerdo al siguiente criterio.

Son 4 caracteres donde "0000"

el primer carácter define si se ingresa solo números ( valor "1" para ing solo numero)

el segundo carácter define si se ingresa separador decimal ( valor "1" para ing decimales)

el tercer  caracter define si se permite signo (valor "1" para ing signo)

y el cuarto decimal define si se limita los decimales (valor "1" para limitar decimales)

Tambien hay que definir m_decimales y separador a nivel general donde m_decimales es el numeros de decimales a utilizar por defecto y separador es el numero de char del separador del sistema 44 para coma y 46 para punto.