Private Sub CommandButton1_Click()
Dim gPath As String
Dim sFile As Object, Fso As Object
gPath = Application.ActiveWorkbook.Path
Set Fso = CreateObject("Scripting.FileSystemObject")
Set sFile = Fso.CreateTextFile(gPath & "/TestFile.txt", True)
sFile.WriteLine ("CreateTextFile Test")
sFile.WriteLine ("CreateTextFile Test1")
sFile.WriteLine ("CreateTextFile Test2")
sFile.WriteLine ("CreateTextFile Test2")
sFile.Close
Set sFile = Nothing
Set Fso = Nothing
End Sub