Create an array

[maxamis4]

Hello,

My LDAP query is working. However I want to store the values in an array. Very simply put the examples online for arrays suck. Is there a very easy step by step method of creating a string array. Below is my code and what I tried to do:

Private Sub btn_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Search.Click
 
        Dim UserID As String
        Dim RootDSE As New DirectoryServices.DirectoryEntry("LDAP://RootDSE")
        Dim DomainDN As String = RootDSE.Properties("DefaultNamingContext").Value
        Dim ADEntry As New DirectoryServices.DirectoryEntry("LDAP://" & DomainDN)
 
 
        Dim objSearch As New System.DirectoryServices.DirectorySearcher(ADEntry)
        'Dim ADSearchResult As System.DirectoryServices.SearchResult
        Dim oResults As DirectoryServices.SearchResultCollection
        Dim oResult As DirectoryServices.SearchResult
        Dim RetArray() As String
        'Dim myresults As String
        Dim i As Integer
 
        i = 0
 
        UserID = txt_Name.Text
        objSearch.PropertiesToLoad.Add("uid")
        objSearch.PropertiesToLoad.Add("givenname")
        objSearch.PropertiesToLoad.Add("cn")
        objSearch.Filter = ("(samAccountName=*" & UserID & "*)")
        oResults = objSearch.FindAll
 
        For Each oResult In oResults
 
            RetArray(i) = oResult.GetDirectoryEntry.Properties("cn").Value
            RetArray.Sort(RetArray)
 
            lb_Names.Items.Add(RetArray)
 
 
            i = i + 1
        Next
 
    End Sub
 
 

any help is appreicated