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