Why not?
Code:
Dim routepoints(0,0) ' in Globals
...
...
Dim routepoints (b-a+2, 2)
For i = a To b + 1
Point(i).x = (...some calculation)
routepoints(i-a,0) = Point(i).x ' so it starts from 0
Point(i).y = (...some calculation)
routepoints(i-a,1) = Point(i).y
Next
drawer.(pen.Value, routePoints())
...