Private Sub cmdRecepcaoLote_Click(Index As Integer) 'Recepcao de Lote 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 Dim ret As String ret = nfse.WsRecepcaoLoteRps(arquivo) txtStatus.Text = txtStatus.Text + "(5) WsRecepcaoLote:" + vbCrLf + ret + vbCrLf End Sub