Wat the hell am i doing wrong?

can som1 please post the good code of this:
Private Sub Command21_Click()
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("Warrock", &H12C8520, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("Warrock", SJ1, SJ2)
End Sub
and
Private Sub Command15_Click()
Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &H12C8520, SSwim1)
SSwim2 = SSwim1 + &H276
Call WriteAFloat("Warrock", SSwim2, 1)
End Sub
please i really need help

For Swim you write 4. As far as I can see its all correct, Does your code compile? Swim,SJ are 4 bytes, so use write a long.