help pls with invisibility hack

i was wondering how to freeze a adresse when freeze point isnt in new addresses so i think its like this:
Dim invisible As Long
Dim invisible1as Long
Call ReadAByte("Warrock",&H00522818,invisible)
invisible = invisible1 +&H(pls tell me what is her cus i dont know)
Call ReadReadAByte("Warrock",invisible1,(and what is here pls tell me in both cases what is in))

i just started making hacks so i need your help pls

pls help anyone pls