Does this help?
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<title>Prospect Map</title>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub initMap()
MappointControl1.NewMap 1
MappointControl1.Toolbars.Item(1).Visible = true
MappointControl1.Toolbars.Item(2).Visible = true
MappointControl1.Toolbars.Item(3).Visible = true
end sub
-->
</SCRIPT>
</head>
<body lang=EN-US>
<object classid="CLSID:8F78D7FC-BAE4-46A4-A79A-052356AB3DD4"
id=MappointControl1 width=600 height=500>
<param name=BorderStyle value=0>
<param name=MousePointer value=0>
<param name=TabStop value=-1>
<param name=Appearance value=1>
<param name=PaneState value=0>
<param name=Units value=0>
</object>
</p>
<SCRIPT LANGUAGE="VBScript">
Dim addrSize
Dim str, city, state, zip
initMap()
Set mp = MappointControl1.ActiveMap
Dim addrList(3)
addrSize = 3
addrList(0) = "16911 N Triple Butte Court,Colbert,WA,99005"
addrList(1) = "2000 Gold Cup Mountain Road,Priest River,ID,83856"
addrList(2) = "7640 E Van Buren Avenue,Port Orchard,WA,98366"
addrList(3) = "4308 S Conklin Road,Greenacres,WA,99016"
pinCount = 0
On Error Resume Next
for ii=0 to addrSize
Set sa = mp.ParseStreetAddress(addrList(ii))
Set rs = mp.FindAddressResults(sa.Street, sa.City, , sa.Region, sa.PostalCode, 244)
if rs.ResultsQuality = 1 then
pinCount = pinCount + 1
mp.AddPushpin rs.Item(1),rs.Item(1).Name
Set pp = mp.FindPushPin(rs.Item(1).Name)
pp.Symbol = 17
if pinCount = 1 then
rs.Item(1).GoTo
end if
end if
next
MappointControl1.ActiveMap.Saved = true
</SCRIPT>
</body>
</html>