Yes, change the NA in this line to EU

Set oApp = CreateObject("MapPoint.Application.NA.11")

Or better yet, try ommitting the entire .NA.11 part and just do this

Set oApp = CreateObject("MapPoint.Application")

hope this helps,
Eric

__________________