テキストファイルを作成して入力するVBA

Open ThisWorkbook.Path & "/hoge.txt" For Output As #1
Print #1, "hoge"
Print #1, "fuga"
Print #1, "piyo"
Close #1