Private Sub Command3_Click() 'Assinar XML digitalmente 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 String retorno = nfe.AssinarArquivoXML(arquivo, "infNFe") Text1.Text = retorno End Sub