Private Sub cmdGeraLote_Click(Index As Integer) Dim nLote As Long nLote = InputBox("Informe o no. do lote a ser gerado", "Lote de envio", 1) 'gera lote If nLote > 0 Then Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName 'funcao para gerar lote a partir do xml rps escolhido Dim nfse As asscshnfse.asscshnfse Set nfse = New asscshnfse.asscshnfse txtStatus.Text = txtStatus.Text + "(3) Gerar Lote:" + vbCrLf + nfse.GeraLote(arquivo, nLote) + vbCrLf End If End Sub