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

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

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