srch.PropertiesToLoad.Add("homephone")
    srch.PropertiesToLoad.Add("mail")
    srch.PropertiesToLoad.Add("mobile")
    srch.PropertiesToLoad.Add("telephoneNumber")

    Try
        results = srch.FindAll()
    Catch ex As Exception
    End Try

    For Each result In results
        Dim myKey As String
        Dim myResultPropCollection As ResultPropertyCollection

        myResultPropCollection = result.Properties

        For Each myKey In myResultPropCollection.PropertyNames
            Dim tab1 As String = "    "
            Dim myCollection As Object
            Select Case myKey
                Case "mobile" ' Telephone Number
                    For Each myCollection In myResultPropCollection(myKey)
                        phone = myCollection.toint
                    Next myCollection
            End Select
        Next myKey
    Next
    Return phone
End Function