Dim s As String

s = InputBox("ВВести", "СТРОКА", "Москва")

Результатом работы будет диалоговое окно, размещённое в середине экрана вида:

Dim s As String

s = InputBox("ВВести", "СТРОКА",. 20, 10)

Результатом работы будет диалоговое окно, размещённое в левом верхнем углу вида:

В этом окне в позицию курсора нужно ввести текст, который будет записан в переменную S.