I always forget how to create a new text file so I put together this factory. You will need to reference the Microsoft Scripting Runtime library in your VBA project.

TextStreamFactory.bas

' Make sure you've referenced the Microsoft Scripting Runtime library in your project
' In the VBA Editor: Tools > References...
Function TextStreamFactory(ByVal NewFileName As String) As Scripting.TextStream
    Dim fs As New Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    Set ts = fs.CreateTextFile(NewFileName)
    
    Set TextStreamFactory = ts
End Function