Dim arrPt(0 To 4, 0 To 2) As Single
arrPt(1, 1) = 25
arrPt(1, 2) = 100
arrPt(2, 1) = 100
arrPt(2, 2) = 150
arrPt(3, 1) = 150
arrPt(3, 2) = 50
arrPt(4, 1) = 25 
arrPt(4, 2) = 100
 
dim dreieck as shape = myrange.shape.addPolyline(arrPt)