Una imagen vale mas que mil palabras
Me estoy volviendo loco, SI NO PRESIONO NINGUNA TECLA porque me devuelve un numero entero largisimo, y lo mas raro todavia esque si lo ejecuto de nuevo me devuelve otro numero.
El codigo es de lo mas sencillo
For i = 32 To 255
resultado = GetAsyncKeyState(i)
If Not resultado = 0 Then
MsgBox(resultado)
End If
Next
Y RESULTADO DEVUELVE LO QUE LE DA LA GANA