txt als pdf speichern

Option Explicit
Sub ExportModules()         ' Ordner erstellen
'prüfen ob ein Ordner vorhanden ist und falls nicht
'fragen ob Ordner erstellt werden soll
Dim Ord As String
Dim Antwort As Integer
Ord = "C:\Users\VBA CODE"
'  If Dir(Ord, vbDirectory)  "" Then
'      MsgBox "Ordner ist schon vorhanden"
'  Else
'  Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
'          & vbNewLine _
'          & "soll der Ordner angelegt werden?!", vbYesNo)
'      If Antwort = vbYes Then
''Falls kein LW angegeben ist, erstellt die MkDir-Anweisung
''den neuen Ordner auf dem aktuellen LW.
''LW wurde aber durch "C:\Eigene Dateien\Teste" festgelegt
'      MkDir Ord
'      MsgBox "Ordner " & Ord & " angelegt"
'      Else
'      MsgBox "Es wurden keine Änderungen vorgenommen"
'      Exit Sub
'      End If
'  End If
Dim VBComp As Object, objFile As Object 'Code als txt Datei exportieren
Dim i As Long, TaskId As Double
Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Ord & "/" & UserForm1. _
TextBox1.Text & "-VBA.txt", 2, True)
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
objFile.WriteLine vbCrLf & VBComp.Name & vbCrLf
With VBComp.CodeModule
i = 1
Do Until i > .CountOfLines
objFile.WriteLine .Lines(i, 1)
i = i + 1
Loop
End With
objFile.WriteLine
Next VBComp
objFile.Close
MsgBox "Code gespeichert"
'    TaskId = Shell("notepad.exe " & ThisWorkbook.paTh & "\VBA.txt", vbNormalFocus)
End Sub