Vector CreateVector( double x, double y, double z )
Function CreateVector ( x As Double, y As Double, z As Double ) As Vector