Consulta de CEP on-line

Private Sub CmdMEU_CEP_Click()

'-------------------------------------------------------------
   'nao esquecer de REFERENCIAR: MICROSOFT XML 6.0
    Dim myXML As DOMDocument
    Dim XCep As IXMLDOMNode
    Dim MENSAGEM As String

On Error GoTo Trata_Erro

'------------------------------------------------------------------------
    If Len(MaskBoxMEU_CEP.Value) <> 8 Then
        MsgBox "CEP InvÃ¡lido, digite o CEP com 8 Digitos", vbExclamation, "Localizar CEP ON-Line"
        MaskBoxMEU_CEP.SetFocus
    Exit Sub
    End If
'------------------------------------------------------------------------
    MousePointer = vbHourglass
'------------------------------------------------------------------------
    Dim Xlink As String
    Set myXML = New DOMDocument
'-------------------------------------------------------------
    myXML.resolveExternals = True
    myXML.ValidateOnParse = True
    myXML.async = False
'-------------------------------------------------------------
    Xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & MaskBoxMEU_CEP.Value & "&formato=xml"
    myXML.Load (Xlink)
'-------------------------------------------------------------
    For Each XCep In myXML.documentElement.childNodes
'------------------------------------------------------------------------
        Select Case XCep.nodeName

                    Dim XRua As String
                    Dim XTipo As String

               Case Is = "logradouro"
                    XRua = UCase$(XCep.childNodes(0).Text)
               Case Is = "uf"
                    CboMINHA_UF.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "cidade"
                    MaskBoxMINHA_CIDADE.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "bairro"
                    MaskBoxMEU_BAIRRO.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "tipo_logradouro"
                    XTipo = UCase$(XCep.childNodes(0).Text)
               Case Is = "resultado_txt"
                    MENSAGEM = UCase$(XCep.childNodes(0).Text)
'------------------------------------------------------------------------
   MsgBox MENSAGEM
   Me.MaskBoxMEU_LOGRADOURO.Text = Empty
   Me.MaskBoxMEU_COMPLEMENTO.Text = Empty
   Me.CboMINHA_UF.Text = " "
   Me.MaskBoxMINHA_CIDADE.Text = Empty
   Me.MaskBoxMEU_BAIRRO.Text = Empty
'------------------------------------------------------------------------
        End Select
    Next
    '------------------------------------------------------------------------
        MaskBoxMEU_LOGRADOURO.Text = XTipo & " " & XRua 'PREENCHE O LOGRADOURO
    '------------------------------------------------------------------------
        MousePointer = vbDefault
     '------------------------------------------------------------------------
Exit Sub

Trata_Erro:

    MousePointer = vbDefault

MsgBox "Ocorreu um Erro ao tentar localizar este CEP" & vbCrLf & _
"Verifique se existe Conexao com a Internet e tente novamente" & vbCrLf & vbCrLf & _
Err.Number & " - " & Err.Description & " - " & Err.Source, vbExclamation, "ERRO - Localizar CEP ON-Line"

End Sub