Try this:

Sub TXT1()
Dim path As String
path = "type your file path here" 'something like "C:\Users\Folder1\subfolder"
    ActiveWorkbook.SaveAs Filename:=path & "\Your file name.txt", _
        FileFormat:=xlText, CreateBackup:=False
End Sub