Búsqueda entre 2 fechas

[Kruzado]

como lo haria yo

en el lostfocus del text
dim fechaini as date
dim fechatope as date
if isdate(text) then 'valido ke ingreo una fecha
fechaini="16/06/2006"
fechatope=date()
if text<fechaini and text>fechatope then
xxx=msgbox("Fecha fuera de rango",vbinformation,"Atención")
text.setfocus
else
aca coloca el codigo ke tiene que ejecutarse cuando la fecha esta ok.
endif
else
xxx=msgbox("Dato ingresado no es fecha",vbinformation,"Atención")
text.setfocus
endif