no fall damage hack what is wrong??

what is wrong with this no fall damage hack plz help me

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

I think that :

Dim ptr1 As Long
Dim sum1 As Long
If GetKeyPress(vbKeyNumpad6) Then
Call ReadALong("WarRock", &H894E28, ptr1)
sum1 = "&H" + Hex(Val(ptr1))<<---| + &H100) '<<----here 1 ) more
Call WriteALong("WarRock", Val(sum1), -100)
End If