'Assina XML'
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 asscte As asscshcte.asscshcte
Set asscte = New asscshcte.asscshcte
txtStatus.Text = txtStatus.Text + "(2) Assinar XML:" + vbCrLf + asscte.AssinarArquivoXML(arquivo, "infCte") + vbCrLf
End Sub