Private Sub Command5_Click() 'Gerar Lote Dim numero_lote_a_gerar As Long numero_lote_a_gerar = InputBox("Informe o no. do lote a ser gerado", "Lote de envio", 1) Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName Dim nfe As nfec.nfecsharp Set nfe = New nfec.nfecsharp Text1.Text = nfe.GerarLote(arquivo, numero_lote_a_gerar) If Text1.Text = "" Then MsgBox "Erro ao gerar o lote!", vbInformation End Sub