SWIM CODE and GUN CODE, DOESN'T WORK ??

Hi all!
I use VB6 so,
I have problem with gun code and swim please help and tell what is wrong ...
Here is my unworking:D gun code:
:::This is on my Take Gun Button:::

Dim gun As Long
Dim gun1 As Long
Dim gun2 As Long
Call ReadALong("WarRock", &H4ADCA8, gun)
gun1 = gun + &H4C
gun2 = Text2
Call WriteALong("WarRock", gun1, gun2)

And Here is unworking:D Swim code:
::: This is on my Swim button,no timer:::

Dim swim As Long
Dim swim1 As Long
Call ReadALong("WarRock", &H4ADCA8, swim)
swim1 = swim + &H54
Call WriteALong("WarRock", swim1, 4)

PLEASE DON'T REPLY IF YOU DON'T KNOW ANYTHING ABOUT CODING VB6;)

its not your code its your address

oh and also your assinging gun2 wrong it should be .text

just replace gun2 in the writealong with text1.text

unnecessary use of a variable

:DOk I'll test that out...TY

Not: 004ADCA8
But: Warrock.exe+004ADCA8 which is: 008ADCA8

~Xocitus

whats writing the code in warrock??