作成するテキストファイルのファイル名を、インプットボックスで指定します。
テキストファイルの作成にはOpenステートメントを使用し、Closeステートメント
で保存します。

Sub Sample()

    Dim intFileNum         As Integer
    Dim strFileName        As String

    intFileNum = FreeFile
    strFileName = InputBox("ファイル名を指定してください")
    If strFileName <> "" Then
        strFileName = strFileName & ".txt"
        Open strFileName For Output As intFileNum
        Close #intFileNum
    End If

End Sub

　Openステートメントを使用する際には、事前にFreeFile 関数を使用して次に使用
可能なファイル番号を取得しておきます。