Vb6 Problem With Weapon Code?

I know this is weapon address with pointer: 00896e28 +4c
BUT QUESTION IS HOW I KNOW WHAT GUN IT GIVES?
And how I can make it giving WINCHESTER!!!
GIVE ME CODES!!!PLEASE...

00896e28 +4c

Dim winchester As Long
Dim winchester1 As Long
Call ReadALong("Warrock", &H896E28, winchester)
winchester1 = winchester + &H4C
Call WriteALong("Warrock", winchester1, 34)

yop zioms' is correct

THANKS ALOT