Fehler im Skript - wer kann helfen?

Sub AlsTextSpeichern()
Dim sfile As Integer
ActiveSheet.Select
Cells.Replace What:="ö", Replacement:="oe", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="ä", Replacement:="ae", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="ü", Replacement:="ue", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
sfile = Format(Now, "DDMM")
exportfile = "c:\xyz\UPS\UPS" & sfile & ".csv"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(2)
Open exportfile For Output As #Dateinummer
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To 17
TMP = TMP & CStr(TB.Cells(z, s).Text) & ","
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub