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