My Hack doesnt work oO

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As 

Integer

Private Sub Command1_Click()
If GetAsyncKeyState(112) <> 0 Then Msgbox "Hotkey - F1"
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
If GetAsyncKeyState(17) <> 0 Then Msgbox "Hotkey - STRG"
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)

End Sub

Private Sub Command4_Click()
Dim shotgun As Long
Dim shotgun1 As Long
If GetAsyncKeyState(16) <> 0 Then Msgbox "Hotkey - SHIFT"
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 46)
End Sub

Private Sub Command5_Click()
If GetAsyncKeyState(113) <> 0 Then Msgbox "Hotkey - F2"
Timer2.Interval = 1
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call WriteALong("WarRock", &HDED290, 0)
End Sub