Как вывести диалоговое окно для ввода данных?

iData = InputBox(Prompt:="Введите данные", Title:="http://samplecode.ru")

С помощью именованного аргумента Default можно задать текст по умолчанию, а с помощью аргументов XPos, YPos можно управлять размещением диалогового окна на экране, ниже пример:

iData = InputBox(Prompt:="Введите данные", Title:="", Default:="Просто текст", XPos:=250, YPos:=250)