Private Sub Form_Activate()
 Dim FechaInicial As Date
 Dim FechaFinal As Date
 Dim X As Integer
  FechaInicial = InputBox("INTRODUZCA LA FECHA INICIAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
  FechaFinal = InputBox("INTRODUZCA LA FECHA FINAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
   NumArchivo = FreeFile
   Open NOMBREARCHIVO For Random As #NumArchivo Len = Len(Registro)
   If FechaInicial And FechaFinal = Registro.Fecha And Registro.Edo = "A" Then
     For X = FechaInicial To FechaFinal
       lstFechas.AddItem Trim(Str(Registro.Num)) & "  $  " & Trim(Str(Registro.Cant)) & " -- " & Trim(Registro.Nom) & " -- " & Trim(Str(Registro.Fecha))
     Next
  Else
      MsgBox "NO HAY FECHAS ALMACENADAS", vbInformation, "ARCHIVO VACIÓ"
  End If
  Close NumArchivo
End Sub