Sub 新規テキストファイルを作成する()

    保存場所 = "C:\test\test.txt"
    
    書き込み内容 = "テスト"
    
    ファイル番号 = FreeFile
    
    Open 保存場所 For Append As #ファイル番号
    
    Print #ファイル番号, 書き込み内容
    
    Close #ファイル番号

End Sub