【Excel】VBAマクロの入力フォームをセルに反映（呼び出し・テキストボックスも：作成：日付も：InputBox：TextBox1）する方法

Sub InputBoxWoHyouji()
    'アクティブセルにInputBoxの値を入力する
    
    Dim StMsg As String  'InputBoxの説明メッセージを格納する変数
    Dim TitleMsg As String  'InputBoxのタイトルを格納する変数
    Dim DefaultText As String  'InputBoxのデフォルトで表示する値を格納する変数
    Dim InputStr As String  'InputBoxの入力値を格納する変数
    
    StMsg = "値を入力してください。"  'InputBoxの説明メッセージを設定
    TitleMsg = "入力フォーム"  'InputBoxのタイトルを設定
    DefaultText = ""  'InputBoxのデフォルトで表示する値を設定
    
    'InputBoxを表示し、入力値を取得
    InputStr = InputBox(StMsg, TitleMsg, DefaultText)
    
    'InputBoxの入力値をアクティブセルに反映
    ActiveCell.Value = InputStr
    
End Sub

Sub UserFormWoHyouji()
    'ユーザーフォームを表示し、入力値をTextBox1に反映する
    
    Dim StMsg As String  'ユーザーフォームのラベルに表示するメッセージを格納する変数
    Dim DefaultText As String  'テキストボックスのデフォルト値を格納する変数
    
    StMsg = "値を入力してください。"  'ユーザーフォームのラベルに表示するメッセージを設定
    DefaultText = ""  'テキストボックスのデフォルト値を設定
    
    'ユーザーフォームを作成
    With ThisWorkbook.VBProject.VBComponents.Add(3)
        .Properties("Caption") = "入力フォーム"  'ユーザーフォームのキャプションを設定
        With .CodeModule
            .InsertLines 1, "Private Sub UserForm_Initialize()"
            .InsertLines 2, "    Me.Label1.Caption = """ & StMsg & """"
            .InsertLines 3, "    Me.TextBox1.Text = """ & DefaultText & """"
            .InsertLines 4, "End Sub"
        End With
        
        With .Designer
            .Controls.Add "Forms.Label.1"
            With .Controls("Label1")
                .Caption = StMsg  'ラベルのキャプションにメッセージを設定
                .Height = 18
                .Width = 100
            End With
            
            .Controls.Add "Forms.TextBox.1"
            With .Controls("TextBox1")
                .Text = DefaultText  'テキストボックスのデフォルト値を設定
                .Height = 18
                .Width = 100
                .Top = 24
            End With
        End With
    End With
    
    'ユーザーフォームを表示
    UserForm1.Show
    
End Sub