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

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