How do I implement something like:

For I = 1 To 10000
If KeyPressed='H' Then
Get out of the Loop (Or do something else)
End If
Next I

/Hans