Sub テキストファイルとして出力して保存する()

    Open "C:\sample.txt" For Output As #1 'Appendで既存に追記、Outputで作成
    
    Print #1, Range("A1") & vbCrLf & Range("A2") & vbCrLf & Range("A3")
    
    Close #1

End Sub