MsgBox TypeName(plPath.Coordinates)   ' Double
MsgBox UBound(plPath.Coordinates)   ' 7
MsgBox IsArray(plPath.Coordinates)   ' True
MsgBox plPath.Coordinates(0)   ' Ошибка 451:  Property let procedure not defined and property get procedure did not return an object