Shot Gun Code Help

[redarr]

I need help with this code:

I have a custom module.

What do i change if i have a custom module

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1279280, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteAFloat("Warrock", Shotgun2, Value)

What do i add if i want to add text box to add wep num

[bohnenbong]

Only the "value" to "34" i think

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1279280, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteAFloat("Warrock", Shotgun2, Text1.text)

[wr194t]

I answered his question on another thread.

[str1k3r21]

I answered his question on another thread.

Well Adress changed...
I got it but not offset.