Sub számbe()
Dim a
a = Application.InputBox("mennyi?", Type:=1)
MsgBox a
End Sub

A vastagbetűs a lényeg. Ennek ugyan beírhatsz bármit, de Enter után kiabál, hogyha nem számot írtál be, és addig nem enged tovább, amíg nem korrigálsz.