Forzar TexBox para que admita únicamente números

FACILITIO

Crear un formulario, añadir un TextBox y escribir el siguiente código:


Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <;>; Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <;>; 8 Then
KeyAscii = 0
End If
End If
End Sub