Получение доступа к открытому MS Office word - VB

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

Доброго времени суток! Необходимо получить доступ к открытому экземпляру Word. Сделать это при помощи ниже приведенного кода не получается, так как Shell32.Shell содержит только окна проводника.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myShell As New Shell32.Shell
        Dim myWord As Object
        'ищем среди открытых окон Word
        For Each myWord In myShell.Windows
            Debug.Print(myWord.Name)
            If InStr(myWord.Name, "Здесь часть имени окна", CompareMethod.Text) Then
                Exit For
            End If
        Next myWord
        If myWord Is Nothing Then
             Exit Sub
        End If
End Sub

Через какой тип объекта можно получить доступ к word или любому другому приложению. Спасибо Всем за помощь!

Решение задачи: «Получение доступа к открытому MS Office word»

textual
                            Листинг программы 
                        

                            Sub Check_OpenWord()
    Dim objWrdApp As Object
    On Error Resume Next
    'пытаемся подключится к объекту Word
    Set objWrdApp = GetObject(, "Word.Application")
    If objWrdApp Is Nothing Then
        'если приложение закрыто - создаем новый экземпляр
        Set objWrdApp = CreateObject("Word.Application")
        'делаем приложение видимым. По умолчанию открывается в скрытом режиме
        objWrdApp.Visible = True
    Else
        'приложение открыто - выдаем сообщение
        MsgBox "Приложение Word уже открыто", vbInformation, "Check_OpenWord"
    End If
End Sub
                        