Create Point3d using coordinates from measure result

Hello,
I got measure1 seen below through analysis on workpart. It is highest point of the model. I want to create point3d using X,Y and Z coordinates of the measure1. For now, I can create point (not point3d) with meausre, but, I have no idea to create point3d using coordinates of measure1. Can anybody help to do that?

Dim measureRectangularExtreme1 As MeasureRectangularExtreme
measureRectangularExtreme1 = workPart.MeasureManager.NewRectangularExtreme(unit1, direction1, direction2, direction3, scCollector1, False)
Dim measure1 As Measure
measure1 = measureRectangularExtreme1.CreateFeature()
Dim point1 As Point = CType(measure1.FindObject("POINT 1"), Point)

Thank you,
Kazu

You can easily extract a Point3d from the Point object that you have; "point1.Coordinates" will return a Point3d structure that you can use directly or assign to a new variable.