Archivo Secuencial

[YEXBOND007]

Hola a todos los del foro tengo un problema quiero hacer una busquedad por fechas pero no se como validar que la fecha que me dan este dentro del rango

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

Este es el codigo de como lo estoy haciendo solo me muestra una fecha la que capturar en fechainicial y quiero que me muestre todas las que se encuentren dentro del rango de musquedad si alguien me pueda hechar una mano se los agradecería 

[Sancho.Mazorka]

Podrias hacer una constante o variable para cada mes que contenga el ultimo dia de cada mes, osea:

Código [Seleccionar] Expandir

Const Enero = 31
Const Febrero = 28
Const Marzo = 31
...
y despues hace un FOR o algun bucle viendo si la fecha es valida!


Sancho.Mazorka