this example should give you what you are looking for

Private Sub stop_Click()
Dim objMap As MapPoint.Map
Set objMap = Forms!MAPform.MAP.ActiveMap
Dim objloc As MapPoint.Location
Dim addy As String
addy = Forms!csgmAP.addys

Set objloc = objMap.FindResults(Forms!MAPform.addys).Item(1)
objMap.ActiveRoute.Waypoints.Add objloc
'objloc.Goto