delay?

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub FreezeApp(ByVal dwSeconds As Long)
dwSeconds = dwSeconds * 1000
Start = GetTickCount
Do While GetTickCount < Start + dwSeconds
Loop
End Sub


Usage:

FreezeApp Val(Text1)
Print "Done"

[KrishnaSantosh]

I Think SleepEx Would Also Work. Anyway I'm Not Sure

[parksie]

Both Sleep and SleepEx will work, however SleepEx can be "signalled" to return earlier than stated.

We can also use VB's Timer function, thus eliminating the need for API.