Olá Fernando,
Copie o código abaixo em seu Projeto.

'Adicione o Componente Microsoft Transfer Control em seu projeto
'Crie um CommandButton
'Crie uma TextBox

Private Function Dolar_do_Dia() As String
On Error Resume Next
texto = Inet1.OpenURL("http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm")
If Err.Number <> 0 Then
  DolarDoDia = "Erro na conexão"
  Exit Function
End If

On Error GoTo 0
inicio = InStr(texto, "Taxa de Venda")
cont = 0
While cont < 3
  inicio = InStr(inicio + 1, texto, "<td")
  cont = cont + 1
Wend

inicio = InStr(inicio, texto, ">") + 1
fim = InStr(inicio, texto, "</td>")

Dolar_do_Dia = Mid(texto, inicio, fim - inicio)
End Function

Private Sub Command1_Click()
Text1.Text = Dolar_do_Dia
End Sub

Informações Adicionais:

Este Projeto utiliza o Controle Microsoft Transfer Control
Conhecido como INET.

O projeto faz com que o CONTROLE comunique-se com um Site ao qual fornece as informações do DOLAR com isto o controle baixa o código-fonte da Página e faz uma busca de onde se encontra o VALOR do DOLAR e o mostra.

Caso tiver problemas em montar este PROJETO é só postar notificando-me ao qual lhe enviarei por e-mail o PROJETO já pronto para o seu uso.

Abraços,
Marcus Vinícius