tenes dos opciones, una es utilizar la funcion is not is numeric al salir del textbox y la otra es convertir los datos que entra el usuario por ejemplo text1.text = val(text1.text), ok?
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 ' Cancela el carácter.
Beep ' Sonido de aviso de error.
End If
End Sub
''''''''''''''''''
'Codigo para aceptar letras mayusculas y minusculas
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 97 Or KeyAscii > 122 Then 'minusculas
If KeyAscii < 65 Or KeyAscii > 90 Then 'mayusculas
KeyAscii = 0 ' Cancela el carácter.
Beep ' Sonido de aviso de error.
End If
End If
End Sub