Visual Basic - INPUTBOX.

Tengo el siguiente código para hacer que en una caja de texto sólo se puedan digitar números.

Private Sub TxtNumReg_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii <> 8 Then ' este es el Backspace
KeyAscii = 0
Beep
End If
End If
End Sub

Pero necesito hacer esto mismo desde un INPUTBOX, ¿Cómo lo hago?

Gracias.