I was trying to solve your problem with the least amount of code  and came
across a great way to check for number  being entered  in a single line.

Dim val  as integer

val = Application.InputBox("Please enter a number","Number checker", Type:=1)

'Here you cannot enter any thing other than a number