Странности при записи в текстовый файл - VBA

Формулировка задачи:

здравствуйте, есть код

Sub С()
 
    Const vbs_files = "D:\ДНСД\ДНСД.vbs"
    'путь к файлу ДНСД.cmd
    Const cmd_file = "D:\ДНСД\ДНСД.cmd"
    'открыть файл ..., если файла с таким именем не существует, VBA его создаст (пустым)
    Open vbs_files For Output As #1
    Print #1, "Set WshShell = CreateObject(""WScript.Shell"")"
    Print #1, "WshShell.Run chr(34) & """" & cmd_file & """" & Chr(34), 0"
    Debug.Print "WshShell.Run chr(34) & """" & cmd_file & """" & Chr(34), 0"
    Print #1, "Set WshShell = Nothing"
    'закрыть файл
    Close #1
 
End Sub

в текстовый файл пишет WshShell.Run chr(34) & "" & cmd_file & "" & Chr(34), 0 я лично ожидаю от кода такую запись: WshShell.Run chr(34) & "D:\ДНСД\ДНСД.cmd" & Chr(34), 0 что я делаю не так? спасибо

Решение задачи: «Странности при записи в текстовый файл»

textual
                            Листинг программы 
                        
                            Print #1, "WshShell.Run Chr(34) & """ & cmd_file & """ & Chr(34), 0"