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