Function AddTwo(ByVal InOne, ByVal InTwo)

AddTwo = InOne + InTwo

End Function

Sub Normalize(ByVal InX, ByVal InY, ByVal InZ, ByRef OutX, ByRef OutY, ByRef OutZ)

Dim Dist

Dist = InX * InX + InY * InY + InZ * InZ

Dist = Sqr(Dist)

OutX = InX / Dist

OutY = InY / Dist

OutZ = InZ / Dist

End Sub