Option Explicit
 
Dim fso As FileSystemObject
Dim ts As TextStream
 
Private Sub Command1_Click()
    Set fso = New FileSystemObject
    Set ts = fso.CreateTextFile("e:\0001\Test.txt") 'hier wird der Pfad 
    ' festgelegt
    ts.WriteLine "Zeile 1"
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1