VBA ファイルシステムオブジェクト・CreateTextFile

■FileNameで表されるテキストファイルを作成し、TextStreamオブジェクトとして返す。OverWriteにはファイルを上書きするかどうかをブール値で指定する。
文字コードをUnicodeにする場合はUnicodeにTrueを指定する（規定値はFalseで、文字コードはASCIIとなる）

Function CreateTextFile(FileName As String,[OverWrite As Boolean = False]) As TextStream

VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary
VBA FileSystemObject（ファイルシステムオブジェクト）事前バインディングと実行時バインディング - ray88’s diary
■サンプルコード

Sub Test()
    Dim FSO As Object
    Dim MyPath As String    
    'ファイルシステムオブジェクトをインスタンス化
    Set FSO = CreateObject("Scripting.FileSystemObject")    
    MyPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト"        
    '既に同名ファイルが存在しているかチェック
    If Not FSO.FileExists(MyPath & "\01.txt") Then
        '同名ファイルがなければファイルを作成する
        FSO.CreateTextFile MyPath & "\01.txt"
    End If
    Set FSO = Nothing
End Sub