Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("Warrock", &H894E28, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("Warrock", SJ1, SJ2)

if it says there is a runtime error it means u screwed up a part of your module
ReadALong and WriteAFloat , no i dont change it 