[Resolvido]Cotação de moedas

Olá
Estou tentando retornar a cotação do dólar para uma TextBox no formulário.

A função é esta:

Código:


Function CotacaoWeb(Moeda)
'de Renato Santos

    Dim objIE As Object, objTb As Object
    Dim strTemp As String
    Dim arrDesc(7) As String
    Dim i As Integer

    arrDesc(0) = "dolar_comercial_compra"
    arrDesc(1) = "dolar_comercial_venda"
    arrDesc(2) = "dolar_paralelo_compra"
    arrDesc(3) = "dolar_paralelo_venda"
    arrDesc(4) = "euro_dolar_compra"
    arrDesc(5) = "euro_dolar_venda"
    arrDesc(6) = "euro_real_compra"
    arrDesc(7) = "euro_real_venda"

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = False
    objIE.Navigate "http://cotacao.republicavirtual.com.br/web_cotacao.php"
    Do While objIE.Busy: DoEvents: Loop
    Do While objIE.ReadyState <> 4: DoEvents: Loop
    strTemp = Replace(objIE.Document.all.Item(0).innerHTML, "%2C", ",")
    If VarType(Moeda) = vbInteger Then
        CotacaoWeb = Mid(strTemp, InStr(strTemp, arrDesc(Moeda)) + Len(arrDesc(Moeda)) + 1, 6)
    Else
        ReDim Moeda(1, 7)
        For i = 0 To 7
            Moeda(0, i) = arrDesc(i)
            Moeda(1, i) = Mid(strTemp, InStr(strTemp, arrDesc(i)) + Len(arrDesc(i)) + 1, 6)
        Next
    End If
    objIE.Quit
    Set objIE = Nothing

End Function


Na Fonte do Controle da TextBox defini:
=CotacaoWeb(1)
para retornar a cotação do dólar comercial venda

Não funfou!

Boa tarde, Norberto

Testei a função e funciona.
Execute a função passo-a-passo para verificar se é executada ou não. Se a função não for chamada, execute-a por VBA
Abraço,