A much more simpler way, since I'm always trying to make life easier .

Code:
Private Declare Function GetAsyncKeyState _
 Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()    
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()    
Dim i As Integer    
For i = 3 To 255       
If GetAsyncKeyState(i) Then Debug.Print Chr(i) 
Next 
End Sub

OMG OMG OMG!!!!
This is SOO SOLVED

thanks i've been looking for this

who are you???