Dim MyNum as Variant, Flag as Boolean
Flag = False
'  Работает до тех пор, пока не будет получен номер
While Not Flag = True
   MyNum=InputBox("Пожалуйста введите номер")
   ' Проверка номера
   If IsNumeric(MyNum) Then
       Flag = True
   Else
       Msgbox "Вы должны ввести номер"
   End If
Wend