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