**Pre-Logic VBA Script Code:**
dim m as imcollection
set m = [shape]
dim d as double
d = m.mmax

**EndStation =:**
d