Attribute VB_Name = "testdialog5"
Sub テスト()

    Dim ans As String
    ans = InputBox("お名前は？", "年齢確認", "")

    If ans <> "" Then
        Range("A1").Value = ans
    End If

End Sub