Speichern unter mit eigenem Makro

Public Sub prcCreateTXT()
' Speicher Output als txt-Datei
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
With ThisWorkbook
.Save
Open "C:\Documents and Settings\abc\Desktop\MeineDatei.txt" For Output As # _
intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End Sub

Das Programm speichert mir ein Excelsheet in txt-Dateien und funktioniert wunderbar. Ist es denn irgendwie möglich, dieses Programm so laufen zu lassen, dass ich vorher wie bei der "Speichern unter"-Form den Dateipfad und -Namen auswählen kann? Über "Application.Dialogs(xlDialogSaveAs).Show" komme ich leider nicht weiter...
Vielen Dank für eure Hilfe!
Felix