Private Sub cmdAssinar_Click(Index As Integer) 'Assinar XML digitalmente Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName 'funcao para gerar a assinatura Dim nfse As asscshnfse.asscshnfse Set nfse = New asscshnfse.asscshnfse txtStatus.Text = txtStatus.Text + "(2) Assinar XML:" + vbCrLf + nfse.AssinarArquivoXML(arquivo, "InfRps") + vbCrLf End Sub