I am unable to get the sample in the article to run
For me, the first stumbling block comes on this line,
Dim oMap As MappointCtl.Map
The first declaration provided. There is no MappointCtl object, property or method. I was able to get by this by changing it to
Dim oMap As Mappoint.Map
However, this line, which follows shortly after
Set oMap = MappointControl1.NewMap(geoMapNorthAmerica)
I have no answer for. When I run it, I get Object Required, and my searches find no MapPointControl1 nor a NewMap().