dim playery as double
playery = readfloat(blah)

If GetAsyncKeyState(vbKeyUp) Then
       WriteFloat &HAFAE68, playery + 10
End If