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 ' 入力…