Option Explicit
Private Declare Function GetInputState Lib "user32" () As Long
Private Sub Command1_Click()
Dim i As Long
Do Until i > 2147483000
i = i + 1
If GetInputState() Then DoEvents
Loop
MsgBox "Klar med loop"
End Sub