Usa algo así:
HoraInicial=Application("HoraInicial")
If DateDiff("N",Time,HoraInicial)>=30 OR HoraInicial="" Then
Application("HoraInicial")=Time
'aqui pones tu proceso de actualización.
End If
algo asi podría funcionar... creo
saludos
