'Recepcao Lote' 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 asscte As asscshcte.asscshcte Set asscte = New asscshcte.asscshcte Dim ret As String ret = asscte.CTeRecepcao(arquivo) txtStatus.Text = txtStatus.Text + "(5) WsRecepcaoLote:" + vbCrLf + ret + vbCrLf End Sub