First thing I see is you will want to use LONGs.
Code:
VelocityKPH VAR LONG
You will over run the WORD size variable
</pre>