Con un timer, le pones de intervalo 60000 ( un minuto ) y pones algo asi:
Saludos
Código (vb) [Seleccionar]
If Now = "13/09/2007 9:00:00" Then
Call MsgBox ("Levantate para ir a comer helado (?)")
elseif Now = "16/10/2007 00:00:00" Then
Call MsgBox ("FELIZ CUMPLE GIL!")
end if
Saludos