KEY 5

I want to get shotgun by pressing 5... this is my code:

If fbiuvgroi(5) Then
Dim gun As Long
Dim gun1 As Long
Call ubfuygsa("Warrock", &H4C, gun)
gun1 = gun + &H4C
Call e3oiwhef("Warrock", gun1, Text1.Text)
End If

fbiuvgroi = GetAsyncKeyState

But this don't works... what is wrong??

Is it that (5) ?? I want to made a Control to but i dont know how... can anybody tell me??

I want to get shotgun by pressing 5... this is my code:

If fbiuvgroi(5) Then
Dim gun As Long
Dim gun1 As Long
Call ubfuygsa("Warrock", &H4C, gun)
gun1 = gun + &H4C
Call e3oiwhef("Warrock", gun1, Text1.Text)
End If

fbiuvgroi = GetAsyncKeyState

But this don't works... what is wrong??

Is it that (5) ?? I want to made a Control to but i dont know how... can anybody tell me??