Private Sub btnValidarXML_Click(sender As Object, e As EventArgs) openFileDialog1.InitialDirectory = Application.StartupPath openFileDialog1.Filter = "NFS-e (*.xml)|" openFileDialog1.Title = "Localizar NFS-e" Dim nfse As New asscshnfse.asscshnfse() If openFileDialog1.ShowDialog() = DialogResult.OK Then If nfse.ValidarArquivoXML(openFileDialog1.FileName) Then MessageBox.Show("Arquivo validado com sucesso!", "NFS-e", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End If End Sub