Как правильно передать путь к файлу в Microsoft Visual Basic of Aplications

Пишу макрос в Exel, суть макроса в том, чтобы данные из таблицы в Exel передать в файл MS Word. Не могу исправить ошибку: File not found. Строка кода с передачей пути к каталогу:

FileCopy HomeDir$ = "\MyDoc.doc", HomeDir$ + "\" + "Name$" + ".doc"

Весь код:

    Sub Go()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")

i% = 2

Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

ID$ = Cells(i%, 1).Text
Adress$ = Cells(i%, 2).Text
Name$ = Cells(i%, 3).Text

FileCopy HomeDir$ = "\MyDoc.doc", HomeDir$ + "\" + "Name$" + ".doc"
Set wdDoc = wdApp.Document.Open(HomeDir$ = "\MyDoc.doc", HomeDir$ + "\" + ".doc")

wdDoc.Range.Find.Execute FindText = "&ID", ReplaceWith:=ID$
wdDoc.Range.Find.Execute FindText = "&Adress", ReplaceWith:=Adres$
wdDoc.Range.Find.Execute FindText = "&Name", ReplaceWith:=Name$

wdDoc.Save
wdDoc.Close
End If
i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово"

End Sub