VBA script- save file with current filename

Something like:

ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\user\Documents\Emails\5Milla\Full Email File_1.csv_Pieces\" & _
    Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 3) & "txt", _
    FileFormat:=xlText, CreateBackup:=False

Please use Code Tags next time, thanks.


Regards, TMS