Dim x As Integer
Dim y As Integer
Dim z As Integer

SetTimerCount(1, 1000)

Terminate