Whats wrong with this?

Please help me my hacks are not working:

Boneshot:
If Mycode1...(vbKeyLButton) Then
Call WriteAByte("warrock", &H4A3964, &H31)
Else
Call WriteAByte("warrock", &H4A3964, &H85)
End If
End Sub

UNL. AMMO:

Call WriteAByte("WarRock", &H51EF86, &H90)
Call WriteAByte("WarRock", &H51EF87, &H90)
Call WriteAByte("WarRock", &H51EF88, &H90)
Call WriteAByte("WarRock", &H51EF97, &H90)
Call WriteAByte("WarRock", &H51EF98, &H90)
Call WriteAByte("WarRock", &H51EF99, &H90)
Call WriteAByte("WarRock", &H51EF9D, &H90)
Call WriteAByte("WarRock", &H51EF9E, &H90)
Call WriteAByte("WarRock", &H51EF9F, &H90)
End Sub

soz for double post i was told to move it here...

old codes mayby?
if that isnt try this:


Call WriteAByte("WarRock", &H51EF86, &H90)
Call WriteAByte("WarRock", &H51EF86 + 1, &H90)
Call WriteAByte("WarRock", &H51EF86 + 2, &H90)

Call WriteAByte("WarRock", &H51EF97, &H90)
Call WriteAByte("WarRock", &H51EF97 + 1, &H90)
Call WriteAByte("WarRock", &H51EF97 + 2, &H90)

Call WriteAByte("WarRock", &H51EF9D, &H90)
Call WriteAByte("WarRock", &H51EF9D + 1, &H90)
Call WriteAByte("WarRock", &H51EF9D + 2, &H90)