Como Impedir que escriban Letras, solo Numeros en un Text ?

[Improvisado]

Hola:
Yo lo hago así:
En el evento Key press del text box


Private Sub textMargen_KeyPress(KeyAscii As Integer)

If IsNumeric (Chr(KeyAscii)) Then
Else
KeyAscii = 0
End If

End Sub

Saludos