super jump hotkeys

hello how can i make superjump hotkeys?
i think my addresses are good but how can i make it work in game
when i press speace i dont Sj
do i need to add hotkey list or what i got this::

Private Sub Command3_Click()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H13773A0, jump)
jump1 = jump + &H178
jump3 = 1600
Call WriteAFloat("WarRock", jump1, jump3)
End Sub

Add a timer and put this into the timer:

If GetKeyPress (vbKeyMButton) Then
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H13773A0, jump)
jump1 = jump + &H178
jump3 = 1600
Call WriteAFloat("WarRock", jump1, jump3)
End If

The timer has to be enabled to true and interval to 1.
Now, if you press middle mouse button, you will superjump.
If u want to jump with space, you have to put this into the timer

If GetKeyPress (vbKeySpace) Then
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H13773A0, jump)
jump1 = jump + &H178
jump3 = 1600
Call WriteAFloat("WarRock", jump1, jump3)
End If