ExcelVBAで入力機能付きのダイアログ

ExcelVBA 
Dim ans As String
str = InputBox(表示文字列, タイトル文字列, デフォルト値)

ネタ元