Claro, te sube la CPU al 58% porque estas haciendo un bucle laaaaaaaargisimo

Lo que has de hacer es, por ejemplo, comprobar la variable (fecha o hora) a un intervalo diferente, por ejemplo, para comprobar la fecha con hacerlo una vez al dia sobra...

Para hacer lo de la fecha puedes agregar tu aplicacion al inicio de windows y comprobar cada vez que se ejecuta....

Para la hora puedes usar un timer...

Bueno, puedes hacerlo de muchisimas formas diferentes, con tal de que no uses un bucle como ese sobra

Saludos

Y el else sobra xD

wei siento aber tardado tanto....jodi l disco duro dl pc d sobremesa.,,,,al tiempo m kompre un prtatil...i porfin e averiguao la web donde puse este comment.....
abeeer tengo la SOLUCIIIIIOOOOOOOOOOOOOON
lo primero muxas gracias a todos por la ayuda.....eso ai k decirlo..... i lo siguiente
tras haber estado pensando muxiiisimooooooooooo tiempo.....unas 60-100h sobre esto (diferentes dias) s m ocurrio kmo hacerlo....es completamente facil..klaro k io lo descarte xk pensaba k seguiria subiendo la cpu al 60 %pero nooo ajjaja
como pueden ver s solamente un timer ajjaja k weno


ABER LES PASO EL CODE:

Private Sub Form_Load()
Timer1.Enabled = True    'activamos el timer 1
Timer1.Interval = 5000   'este s puede cambiar x l k kieras dependiendo
End Sub

Private Sub Timer1_Timer()
If Hour(Time) = 16 Then            'k kompare SOLAMENTE LA HORA no los minutos ni
                                                'los segundos
msgBox ("son las 4 d la tarde")    'mensaje d k abise...blablabla
End If

End Sub

ya pero entonces no seria asi...... seria poner..:


Time = #16:56:00 PM#  'este tiene en cuenta las horas minutos y segundos

y no (Hour)Time = 16         ' este solo tiene en cuenta la hora (hour)

eso es todoooooo ajaj
y con 5000 de timer kreo k esta bien.....eso creo ajaja

simplemente haces una llamada al evento del Timer y te ahorras ese problema...

Private Sub Form_Load()
    Call Timer1_Timer
End Sub

saludos.