'Start a new project
'Paste the following code in (General)(declarations)
'
'Force Numeric Input
'
'
Private Sub Form_GotFocus()

Dim NumberIn As String

Do
   NumberIn = InputBox("Enter a Number")
Loop Until IsNumeric(NumberIn)

Print: Print "you entered " & NumberIn


End Sub