Pessoal alguem consegue me ajudar?

Erro em tempo de execução '13'
Tipos incompativeis

Erro na linha:
Set res = InternetExplorer.document.getElementById("resultado")

Código inteiro:

Sub busca_Operadora()
Dim telefone As String
Dim resultado As String
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
resultado = ""

For i = 2 To UltimaLinha
With ThisWorkbook.Sheets("Plan1")

    telefone = .Range("A" & i).Value & .Range("B" & i).Value

    Set InternetExplorer = CreateObject("InternetExplorer.Application")
   
    InternetExplorer.Visible = False
    Url = "http://www.qualoperadora.net/"
    InternetExplorer.navigate (Url)

    Do
    DoEvents
    Loop Until InternetExplorer.readyState = 4
   
    Set tel = InternetExplorer.document.getElementById("telefone")
    tel.Value = telefone
   
    Set btn = InternetExplorer.document.getElementById("consultar")
    btn.Click
   
    Do
    DoEvents
    Loop Until InternetExplorer.document.readyState = "complete"
   
    Set res = InternetExplorer.document.getElementById("resultado")
    .Range("C" & i).Value = res.innerText

End With

    Set InternetExplorer = Nothing
Next
End Sub