InputBox:
InputBox "Текст InputBox(a)","Заголовок InputBox(a)","значение по умолчанию"
Введенное в InputBox значение положить в переменную:
Sub OrderReady()
Dim orderdate As Date
orderdate = InputBox("Введите дату заказа", "Стол заказов", Date)
MsgBox "Ваш заказ будет готов " & orderdate + 10, vbInformation, "Стол заказов"
End Sub
Обработка введенного значения в InputBox:
'от указанной даты ближайшее воскресенье
Sub NextSunday()
Dim MyDate
Dim Button As Integer 'нужно объявлять только есть в модуле указан Option Explicit
lbl:
MyDate = InputBox("Введите дату", "Определить ближайшее воскресенье", Date)
If IsDate(MyDate) Then
'пользователь ввел дату
MyDate = CDate(MyDate)
Do While Weekday(MyDate) <> 1
MyDate = MyDate + 1
Loop
MsgBox "Следующее воскресенье наступит " & MyDate, vbInformation
Else
Button = MsgBox("Вы ввели не дату, повторите еще раз?", vbYesNo + vbCritical + vbDefaultButton1, "Ошибка!")
If Button = vbYes Then
GoTo lbl
End If
End If
End Sub
См. также: MsgBox