You can try these constant "VK_LBUTTON" in replacement of "vbKeyLButton".

Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2


Public Sub Wait4Click()
Dim press As Boolean
press = False

Do
If GetAsyncKeyState(VK_LBUTTON ) <> 0 Then press = True
If press = True And GetAsyncKeyState(VK_LBUTTON ) = 0 Then Exit Sub
DoEvents
Loop

End Sub