Sub テキストファイルに書き込む() Open "C:\sample.txt" For Append As #1 'Appendで既存に追記、Outputで作成 Print #1, "あああ" & vbCrLf & "いいい" & vbCrLf & "ううう" Close #1 End Sub