質問です。
スペースキーを押した時に"space"と表示したいのですが、すぐ消えてしまいます。


Public Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Sub get_key()
Do
If GetAsyncKeyState(32) <> 0 Then '32=20h(space)
MsgBox "space"
Else
MsgBox "not_space"
End If

Application.Wait [Now() + "0:00:02"]
Loop
End Sub

よろしくご教授願います。