Funkcija Wait

Zanima me kako uporabit funkcijo "WaitObject" oziroma funkcijo ki čaka da se določen program zažene.

Bolj natančno....program ki sm naredu teče v ozadju. Jaz hočem da ta program, ko uporabnik zažene word, nadaljuje s svojimi funkcijami.

Poskusu sm z IF funkcijo in celo dela, sam to ni to ker zadeva skozi melje.

Tukaj odspodaj je začetna skripta programa. Jaz hočem da se skripta ob zagonu programa Ustavi oziroma naj Čaka pred izvedbo FindFile1, da se Word zazene. Po zagonu Worda naj bi nehal čakat in šel naprej.

Private Sub Form_Initialize()
''''TUKAJ NAJ BI ČAKAL DEBUG DOKLER UPORABNIK NE ZAŽENE WORDA''''
FindFile1 = FindFile("C:\Program Files\Microsoft Office\Templates", FILE)
'
If FindFile("c:\", FILE) = vbNullString Then
MsgBox "Windows have to install Normal.dot", vbCritical, "Error"
'
Call GetWord 'Run CloseWord
'
Call Copy 'Run CopyPaste
'
Dim MyAppID, ReturnValue
MyAppID = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 1) 'Run Winword.exe
End
Else
'
Dim OldName, NewName
OldName = "C:\Program Files\Microsoft Office\Templates\Module9999.bas": NewName = "C:\Razvoj\VisualBasic\Ne Tikaj\Module1.bas"
Name OldName As NewName ' Move and rename file.
'
End
End If
End Sub

Točno tako!
Ob zagonu Worda naj bi program nadaljeval s funkcijami.