ExcelVBAで文字などの簡単な入力ダイアログ

ExcelVBA 
Sub Sample1()
    Dim buf As String
    buf = InputBox("名前を入力してください")
    Range("A1") = buf
End Sub

ネタ元