Workbooks.Add Format Text

[osxandxls2004]

ow can I make the Format set to ->Text (tab)<- when suggesting the user
to give a name and save a file? This works already:

Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename

NewBook.SaveAs Filename:=fName
With Application
.SheetsInNewWorkbook = 1
End With