Inhalt einer Textbox in eine .txt Datei schreiben

Hallo Administrator.de User,

ich habe jetzt schon sehr lange gesucht und finde leider nichts. Hier allerdings habe ich gute Erfahrungen gemacht und mir wurde auch immer geholfen.
Nun zu meiner Frage: Ich möchte eine UserForm mit Textbox, wo man den Text, welchen man in die Textbox eingibt als Textdatei speichert. Am besten noch unter einem bestimmten Pfad.
Ich habe nur einen Code gefunden, wo man Zellwerte in eine .txt Datei exportieren kann.

Dieser Code lautet wie folgt:

Dim f As Integer
Dim c As Variant
Dim DateiName As String

f = FreeFile

DateiName = "Pfad\Dateiname"

On Error GoTo Fehler
If Dir(DateiName) <> "" Then '*
Open DateiName For Append As f '*
Print #f, vbCrLf '*
Print #f, Format(Now, "dd.mm.yyyy hh:mm:ss") '*
Else '*
Open DateiName For Output As f

End If '*

For Each c In Worksheets("Menü").Range("A35:D38")
Print #f, c

Next

Fehler:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
Err.Clear

End If
Close f

On Error GoTo 0


Entweder kann ich diesem Code umschreiben, was ich aber nicht geschafft habe. Würde mich sehr freuen wenn mir jemand helfen würde.

Mit freundlichen Grüßen

Justin Wagner

Dim FILEPATH,objFSO as Object ,objTextfile as Object
'Pfad zur Datei  
FILEPATH = "[PFAD ZUR DATEI]"  
'Filesystem Object  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
'Textdatei erzeugen  
Set objTextFile = objFSO.OpenTextFile(FILEPATH,2, True)
'Textdatei mit Inhalt füllen (Textbox-Controlname welches den Text enthält bitte anpassen !!)  
objTextFile.Write(TextBox1.Text)
'File schließen  
objTextFile.Close()

objFSO.CreateFolder "C:\Ordner"
objFSO.CreateFolder "C:\Ordner\Subordner"