VB.NET Von allen Mitgliedern einer Gruppe sAMAccountName ausgeben

Public Function GetGroupMember(ByVal domain As String, ByVal username As String, ByVal password As String, Optional ByRef exeption As Exception = Nothing) As Collections.Generic.List(Of String)
	
	Dim ADEntry As New DirectoryServices.DirectoryEntry("LDAP://" & domain, username, password)  
    	Dim objSearch As New System.DirectoryServices.DirectorySearcher(ADEntry)

    	Dim oResults As DirectoryServices.SearchResultCollection
    	Dim oResult As DirectoryServices.SearchResult
		
		Dim colEntry As New Collections.Generic.List(Of String)
		Try
    		objSearch.Filter = "(&(objectCategory=person)(objectClass=user))"  
   			oResults = objSearch.FindAll
			objsearch.PropertiesToLoad.Add("MemberOf")  
   		
   			For Each oResult In oResults
   				For i As Integer = 0 To oResult.Properties("MemberOf").Count - 1  
   					Dim sProp As String = oResult.Properties("MemberOf")(i)  
   					Dim s2Prop As String = sProp.Substring(3, sProp.IndexOf(",") - 3)  
   					If s2Prop.ToLower = textBox18.Text.ToLower Then
   						Dim UsrsAM As String = oResult.GetDirectoryEntry.Properties("sAMAccountName").Value  
   						Dim UsrCN As String = oResult.GetDirectoryEntry.Properties("cn").Value  
   						Dim UsrCNsAM As String = UsrsAM & ", " & UsrCN  
   						colEntry.Add(UsrCNsAM)
   						'Else  
   						'colEntry.Add("leer " & s2Prop)  
   					End If
   				Next
        		'Console.WriteLine(oResult.GetDirectoryEntry.Properties("sAMAccountName").Value)  
    		Next

		Catch ex As Exception
			exeption = ex
		
		Finally
			objsearch.Dispose()
		End Try
		Return colEntry
		
	End Function