Superjump Code?

If GetKeyPress(vbKeyControl) Then
   If GetKeyPress(vbKeySpace) Then
    Dim jump As Long
    Dim jump1 As Long
    Dim jump2 As Single
    Call ReadALong("WanrRock", &H8B5288, jump)
    jump1 = jump + &H180
    jump2 = Text1.Text
    Call WriteAFloat("WarRock", jump1, jump2)
End If
End If