Ожидаемый конец суб - проблемы с завершением, если потом

Question

Я очень новичок в кодировании, и мне нужно немного помочь. Мне удалось создать Sub SearchBot и связать его с веб-сайтом. Я пытаюсь извлечь данные с этого сайта (адреса электронной почты). Но я пришел к некоторому препятствию, если у вас есть какие-либо предложения, они будут очень благодарны!

    'define search requests
h = Str("yahoo.com")
g = Str("gmail.com")
i = Str("icloud.com")
a = Str("aol.com")
If [h,g,i,a] Then result = True


'search webpage
    If h Then 'copy to
    Value = Sheets("Sheet1").Range("D4")
    If g Then 'copy to
    Value = Sheets("Sheet1").Range("D4")
    If i Then 'copy to
    Value = Sheets("Sheet1").Range("D4")
    If a Then 'copy to
    Value = Sheets("Sheet1").Range("D4")
    If False Then
        MsgBox "no result"
        Value = Sheets("Sheet1").Range("D4")
    End If

'wait again for the browser
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop


'the first search result will go in "D2"
y = 1

'increment our row counter, so the next result goes below
y = y + 1


'close the browser
objIE.Quit

'exit our SearchBot subroutine
End Sub