Function DoProc()
Dim VrijemeU
Dim I As Integer
VrijemeU = Timer
Start:
I = Timer - VrijemeU
Select Case I

Case 50 To 100
MsgBox "nesto"
Case 100

End Select
DoEvents
GoTo Start
End Function