to pause (loop) until any key is pressed

to make a pause in FoxBase programming would look something like this:

x= 0

do until keypressed

   x = x + 1

enddo

this loop will disengage when any key is pressed

HOW DO YOU WRITE THIS CODE IN VBA?

many thanks