Buenas

esta es una pequeña bomba logica que hice XD (Acabo de improvisar, calculo que esta bien xD)

dim fecha as date
 
sub form_load
 
activar("11/10/2011")
 
end sub
 
function activar(bum as date)
fecha = date
if fecha = bum then
msgbox "BUUUUUUUUM"
else
end
end function
 

Situacion:
Si yo pongo en la fecha 11/10/2011  ,  y esa fecha la pc no se prende, entonces no explota-

Pregunta : (Creo que va x el lado de < > )

Como hago para que explote la fecha o despues que yo le pongo? Osea que explote del 11 en adelante. (11,12,13,14,15, etc)