PLs some experst help me with my code

Hi i'm using VB 6 and i have made a superjump optionbut it doesn't work pls help me the code is:

Dim ptr1 As Long
Dim sum1 As Long
Call ReadALong("WarRock", &H894E28, ptr1)
sum1 = "&H" + Hex(Val(ptr1) + &H180)
Call WriteALong("WarRock", Val(sum1), Text2)

if i press the command button i'll drop under how?
in tex2 is always 2000 or higher but doesn't work

PS i have got the no vall damage adress but wath is the value

value of no fall damage is -100

about your code, i dunt know anything about vb so i can't help ya