Когда я пытаюсь выполнить этот код doc = appie. document, он выдает ошибку, как будто comexception был необработан...plz помогите мне...

---

когда я пытаюсь выполнить этот код doc = appIE. document, он выдает ошибку, как будто comexception был необработан...plz помогите мне..
Как с этим справиться



Private Sub Button1_Click(бывал отправитель как система.Объект, бывал е как система.EventArgs) Обрабатывает Button1.Щелчок
Dim appIE As Object ' InternetExplorer
Аппи = ничего

Dim doc как HtmlDocument
'Dim appIE As Object = CreateObject ("InternetExplorer.Приложение")
Если appIE-это ничто, то appIE = CreateObject ("InternetExplorer.Приложение")
Тусклый URL = "https://www.facebook.com/souj.shanigaram/"
'Dim doc As HtmlDocument = appIE. document


С Аппи
. Навигация(URL)
.Видимое = Истинное
Конец С

док = appIE.документ
Для каждого объекта в doc.GetElementsByTagName ("a")
Если obj. innerText = "About", то
об..Щелчок()
Выход Для
Конец, Если
Следующий

Что я уже пробовал:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim appIE As Object 'InternetExplorer
    appIE = Nothing

    Dim doc As HtmlDocument
    'Dim appIE As Object = CreateObject("InternetExplorer.Application")
    If appIE Is Nothing Then appIE = CreateObject("InternetExplorer.Application")
    Dim URL = "https://www.facebook.com/souj.shanigaram/"
    'Dim doc As HtmlDocument = appIE.document


    With appIE
        .Navigate(URL)
        .Visible = True
    End With

    doc = appIE.document
    For Each obj In doc.GetElementsByTagName("a")
        If obj.innerText = "About" Then
            obj.Click()
            Exit For
        End If
    Next

---