SaveAs Methode

ReDim strNamen(0)
For Each objSh In ActiveWorkbook.Worksheets
If objSh.Name Like "Quelle" & "*" Then
ReDim Preserve strNamen(UBound(strNamen) + 1)
strNamen(UBound(strNamen)) = "C:\" & Dateiname & ".txt"
' Blätter als *.txt unter C:\ speichern
On Error Resume Next
Application.DisplayAlerts = False
objSh.SaveAs strNamen(UBound(strNamen)), FileFormat:=xlText, CreateBackup:=False
On Error GoTo 0
Application.DisplayAlerts = True
End If
Next

lass ich dies unter Excel2003 ablaufen, so bekomme ich eine leere TXT erstellt ohne Inhalt. Dies müsste dann ja an der SaveAs Methode liegen. Lasse ich das "FileFormat" weg, so bekomme ich sehr wohl eine TXT mit binärem Inhalt.
Woran könnte das liegen, dass ich nicht wirklich als TXT mit Tabstops abspeichern kann ?
Grüße
Thomas