Sub SaveAsTextTabSeparated()
    Dim Filename As String
    Filename = CreateObject("WScript.Shell").specialfolders("Desktop") & "" & "test-macro.txt"
    ActiveWorkbook.SaveAs Filename, xlText
End Sub