Private Sub Command7_Click()
'Consultar processamento de lote
Dim numero_recibo As String
numero_recibo = InputBox("Informe o no. do recibo de recepção", "Consultar processamento de lote", "")
If numero_recibo <> Empty Then
Dim nfe As nfec.nfecsharp
Set nfe = New nfec.nfecsharp
Text1.Text = nfe.NfeRetRecepcao(numero_recibo)
End If
End Sub