'sorry for spamming again!
' the ultimate solution:

Dim oLoc As Location
Dim oPin As Pushpin
Dim dbLat As Double
Dim dbLon As Double


Set oLoc = mc1.ActiveMap.FindPushpin(veh_list).Location
Call CalcPos(mc1.ActiveMap, oLoc, dbLat, dbLon)
mc1.ActiveMap.GetLocation(dbLat, dbLon, 0.1).GoTo

'The CalcPos - routine you will find here: (Many thanks to Gilles!!!)
'http://www.mp2kmag.com/articles.asp?ArticleID=13&key=extract.lat.lon