Private Sub Command4_Click() 'Validar XML Text1.Text = "" Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName Dim nfe As nfec.nfecsharp Set nfe = New nfec.nfecsharp Dim retorno As Boolean retorno = nfe.ValidarArquivoXML(arquivo, "nfe_v2.00.xsd", True) If retorno = True Then Text1.Text = "Arquivo validado, nenhum erro identificado." Else Text1.Text = "Erros identificados na validacao." End If End Sub