MapForums

    Dim FR As MapPoint.FindResults
    Dim PP As MapPoint.Location
    Set FR = frmMAIN.ctrlMAPPOINT.ActiveMap.FindResults(ADR)
    If FR.ResultQuality = 2 Then

        ' I need to compare FR.Item(1) and FR.Item(2)

    End If

    Dim XX As Double
    Dim YY As Double
    Dim PP As MapPoint.Location
    Dim FR As MapPoint.FindResults

    Set FR = frmMAIN.ctrlMAPPOINT.ActiveMap.FindResults(ADR)
    If FR.ResultsQuality = geoFirstResultGood Then
        Set PP = FR.Item(1)
        Call CalcPos(frmMAIN.ctrlMAPPOINT.ActiveMap, PP, XX, YY)
        StrXX = Replace(Format$(XX, "0.0000"), ",", ".")
        StrYY = Replace(Format$(YY, "0.0000"), ",", ".")
        ' Return TRUE here
        Exit Function
    ElseIf FR.ResultsQuality = geoAmbiguousResults Then
        If FR.Item(1).StreetAddress = FR.Item(2).StreetAddress Then
            Set PP = FR.Item(1)
            Call CalcPos(frmMAIN.ctrlMAPPOINT.ActiveMap, PP, XX, YY)
            StrXX = Replace(Format$(XX, "0.0000"), ",", ".")
            StrYY = Replace(Format$(YY, "0.0000"), ",", ".")
            ' Return TRUE here too
            Exit Function
        End If
    End If