in .txt speichern

es geht um diesen Code:
Sub AlsTextSpeichern()

exportfile = "C:\Test.txt"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets("Tabelle1") ' das hier muss explizit angesprochen werden

Open exportfile For Output As #Dateinummer
For z = 1 To TB.UsedRange.Rows.Count ' kopiere ab Reihe 1

For s = 1 To TB.UsedRange.Columns.Count
tmp = tmp & CStr(TB.Cells(z, s).Text)
Next s
Print #Dateinummer, tmp
tmp = ""
Next z
Close #Dateinummer

End Sub

Hier wird der Tabelleninahlt immer in text.txt gespeichert, also bei jedem ausführen des Makros überschrieben. Das möchte ich aber nicht, ich will das ich die Möglichkeit habe den NAMEN.txt einzugeben! Ich freue mich über jeden Tipp!!!

MFG Hakan