[HELP] working weapon adress

Private Sub Haulikko_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ejw4ygrj43rtui37w43534wre3002("Warrock", &H1279280, shotgun)
shotgun1 = shotgun + &H4C
Call ejw4ygrj43rtui37w43534wre3001("Warrock", shotgun1, 34)
End Sub

Private Sub SN_Click()
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", shotgun1, 45)
End Sub

Private Sub FB1_Click()
Dim FlashBang1 As Long
Dim FlashBang11 As Long
Call ReadALong("Warrock", &H1279280, FlashBang1)
FlashBang11 = FlashBang1 + &H4C
Call WriteALong("Warrock", shotgun1, 46)
End Sub

Private Sub FB2_Click()
Dim FlashBang2 As Long
Dim FlashBang21 As Long
Call ReadALong("Warrock", &H1279280, FlashBang2)
FlashBang21 = FlashBang2 + &H4C
Call WriteALong("Warrock", FlashBang21, 47)
End Sub

Private Sub FB2_Click()
Dim anywep As Long
Dim anywep1 As Long
Call ReadALong("Warrock", &H1279280, anywep)
anywep1 = anywep + &H4C
Call ReadALong("Warrock", anywep1, Text1.text)
End Sub

0. M7 (Knife)
1. Fist
2. Colt
3. Eagle
4. MP5K
5. Magnum
6. Glock
7. Dual Berettas
8. AK 47
9. K2
10. M4A1
11. Famas
12. L85A1 Sniper Rifle
13. XM8
14. Type 89
15. g36C
16. g36c Drummed
17. g36
18. g36 drummed
19. MP5
20. P90
21. Uzi
22. Mac 10
23. K1
24. MP7A1 (similar to Mac 10/Uzi)
25. PSG-1
26. Barrett M82
27. AUG
28. SSG
29. M24
30. Dragunov SVD
31. AI AW
32. M60
33. M249
34. Winchester Shotgun+
35. Panzer
36. M136AT 
37. RPG
38. Javelin 
39. Stinger
40. SG 
41. TMA-1A Mine
42. HA_Supply (Mine)
43. K400_Grenade
44. K400
45. Smoke Grenade
46. Flash Bang 1
47. Flash Bang 2
48. Claymore Mine
49. Claymore Switch
50. Empty
51. C4
52. Med Kit
53. Med Kit 2
54. Med Kit 3
55. Spanner
56. Pipe Wrench
57. Adrenaline
58. Parachute
59. Detector
60. Telescope
61. Flash Mine
62. MG3 Machine Gun
63. M134 Minigun
64. MK1S Grenade Launcher
65. LMAO Ammo Box
66. M14 Mine
67. Tear Gas 
68. Medic Box
69. K203 
70. Telescope 
71. Silencer 
72. Nippers.