Private Sub cmdValidar_Click(Index As Integer) 'validar XML de lote Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName 'funcao para validar arquivo XML Dim nfse As asscshnfse.asscshnfse Set nfse = New asscshnfse.asscshnfse Dim ret As Boolean ret = nfse.ValidarArquivoXML(arquivo) If ret = True Then txtStatus.Text = txtStatus.Text + "(4) Validar Lote:" + vbCrLf + "Lote validado com sucesso!" + vbCrLf Else txtStatus.Text = txtStatus.Text + "(4) Validar Lote:" + vbCrLf + "Falha na validação." + vbCrLf End If End Sub