Code:
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:
Code:
FreezeApp Val(Text1)
Print "Done"