Запуск MS Word через функцию Shell - VB

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

Всем доброго времени суток. Нужно открыть документ *.doc при помощи Word. Почему-то функция Shell упорно отказывается это делать. Строка кода не работает:

                    Листинг программы
                
z% = Shell("WinWord Source.Doc",1)

Переписал, полностью указав путь к программе и к файлу:

                    Листинг программы
                
z% = Shell("C:\ProgramData\Microsoft\Windows\Start_Menu\Programs\Microsoft_Office\WinWord.exe C:\\Users\пк\\Desktop\\DDE1\\Source.doc", 1)

При попытке запуска пишет: File not found Попробовал открыть этот же документ с помощью Блокнота, всё нормально открылось. Значит всё дело именно в Ворде. Я конечно понимаю, что можно использовать другие функции, но хотелось бы разобраться, почему именно эта не работает.

Решение задачи: «Запуск MS Word через функцию Shell»

textual
                            Листинг программы 
                        
set wdApp=CreateObject("Word.Application")
set wdDoc=wdApp.Douments.open(Полный_путь_к_документу)