[Resolvido]Variavel não definida

Boa tarde!
Mais uma vez venho solicitar a  ajuda de vocês. O código abaixo funcionava tranquilo e agora "Variável não definida"

Desde já fico agradecido!

Function busca_cep(CEP)

URL = "http://republicavirtual.com.br/web_cep.php?cep=" & CEP & "&formato=query_string"

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET", URL, False
xmlhttp.Send ""

xmlhttp_resultado = xmlhttp.responseText
Set xmlhttp = Nothing

arr_resultado = Split(xmlhttp_resultado, "&")

Dim resultado(7)
For i = LBound(arr_resultado) To UBound(arr_resultado)

resultado(i) = arr_resultado(i)

Next

arr = Split(Join(resultado, "="), "=")

Dim arr_2(14)
For i = LBound(arr) To UBound(arr)

arr_2(i) = Replace(arr(i), "+", " ")

Next

busca_cep = arr_2
End Function

Boa tarde.
Muito provável ser a referencia MSXML

Veja se encontra ela no seu micro (la nas referencias do VBA), caso contrário, registre ela novamente no Windows.

Tem até instaladores dela.

Copie e cole os links no seu navegador.

microsoft.com/pt-br/download/details.aspx?id=6276
support.microsoft.com/pt-br/help/278674/determine-the-version-of-msxml-parser-installed-on-a-computer

Boa tarde, Marcelo David!

Desculpa a demora em responder. Muito obrigado! Erra isso mesmo!

Muita paz! Fica com Deus!

Grato pelo retorno, o Fórum agradece.