Sub ReadAndWriteTextFile() Dim inputFile As String Dim lineText As String Dim lineCount As Long ' 入力ファイルのパスを指定 inputFile = "C:\input.txt" ' 入力ファイルを開く Open inputFile For Input As #1 ' 行番号を初期化 lineCount = 1 ' 入力ファイルの終わりまで1行ずつ読み込む Do Until EOF(1) Line Input #1, lineText ' 出力ファイル名を生成 Dim outputFile As S…