Have you tried setting the objects you instantiated for the routes to NOTHING?

like:
Dim routeMap As MapPoint.Map
Dim objRoute As MapPoint.Route
Dim objSA As MapPoint.StreetAddress

then set them all to nothing at the end of the method

routeMap=NOTHING
objRoute=NOTHING
objSA = NOTHING