It's a simple problem: Your array of Locations is dimensioned too large.
Instead use

Dim locations(4) As MapPoint.Location

In VB.Net, the zero-base is assumed, so you were actually creating a 6-item array, the last of which was not initialized.

HTH
-Paul