При таком сохранении файл из 123.xlsm сам переименовывается в 123.txt и весь текст почему-то сохраняется в кавычках

Мне нужно чтобы начальный файл 123.xlsm оставался прежним а 1 лист сохранялся в txt

{quote}{login=Юрий М}{date=07.05.2012 06:57}{thema=}{post}Сохранить Как. Исходник останется и будет сохранён текстовый. По умолчанию (если ничего не указать) активный лист.{/post}{/quote}  
Все равно при Сохранить Как расширение исходного файла меняется на .txt    
Не пойму в чем дело

Sub SaveTxt()  
Const txt_name = "tFile.txt"  
Dim wb As String: wb = ThisWorkbook.Path & "\" & txt_name  
With ThisWorkbook  
   .SaveAs Filename:=wb, FileFormat:=xlTextMSDOS  
   .Close (True)  
End With  
End Sub