Private Sub Command1_Click()
Dim ACX As Long
Dim RACX As Long
Dim X As Single
X = CORX //CORX Its my edit box where i have to put in my X.(Float value)
Call ReadALong("Warrock", &HXXXXXX, ACX)
RACX = ACX + &HXXC
Call WriteAFloat("Warrock", RACX, X)
End Sub