[vb]
Option Explicit
Sub CreateFile()
Dim StrFileName As String
Dim intFileNo As Integer
StrFileName = ActiveWorkbook.Path & "out.txt"
intFileNo = FreeFile
Open StrFileName For Output As #intFileNo
Write #intFileNo, "これはWriteテストです。"
Print #intFileNo, "これはPrintテストです。"
Close #intFileNo
End Sub
[/vb]