Code:
Dim last As Long

last = GetTickCount()
While True
  If last + 30 < GetTickCount() Then
      last = GetTickCount()
      'DoStuff
  End If
Wend
Z.