I am using something like this...so try this

Public Function MatchFirst(Name As String, Results As MapPoint.FindResults) As Long

If Results.Count > 1 Then
MatchFirst = Results.Count
ElseIf Results.Count = 1 Then
MatchFirst = 1
Else
MatchFirst = 0
End If


End Function