sorry forgot the code lol her it is:
Private Sub Timer6_Timer()
Dim ptr1 As Long
Dim sum1 As Long
If GetKeyPress(vbKeyNumpad6) Then
Call ReadALong("WarRock", &H894E28, ptr1)
sum1 = "&H" + Hex(Val(ptr1) + &H100)
Call WriteALong("WarRock", Val(sum1), -100)
End If
End Sub