'------------  PRINTING COORDINATES ------------------
'==========================================================================
Private Sub printCoordinates(oProduct As Product)

Dim NWUList(11)
Dim Coords

Dim doProduct
Set doProduct = oProduct

'get coordiates from CATIA
doProduct.Position.GetComponents NWUList

'get roll, pitch and yaw
Coords = fromNWUToXYZYPR(NWUList)