Слагаш това в някой модул

Public Sub save_txt_file(sPath as String, sContent As String)

'overwrites file if exists



  If sContent = "" Or Len(sPath) < 4 Then Exit Sub



  Const ForReading = 1, ForWriting = 2, ForAppending = 3

  Dim fs, f

  Set fs = CreateObject("Scripting.FileSystemObject")

  Dim objTextStream

  Set objTextStream = fs.OpenTextFile(sPath, ForWriting, True)

  objTextStream.Write (sContent)

  objTextStream.Close

  Set objTextStream = Nothing

  Set fs = Nothing

End Sub