hacks not work come check

[1zz23z]

Helle peaple i use this code for winschester,

Dim Shotgun As Long
Dim Shotgun1 As Long
Call ReadAlong("Warrock", &H12DF500, Shotgun)
Shotgun1 = Shotgun + &H4C
Call WriteALong("Warrock", Shotgun1, 42)
End If

my vb6 portable give always a foult at,the red words.
can anyone tell me whats the problem?
-------------------------------------
sorry for post know now already saw on internet(post can delete)