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