Issue with VBA Script in Excel to pull LDAP Query - excel

Question

I am currently having an issue with VBA Script that I have written to pull some LDAP information from Active Directory. However, I have came to a break in the code at GetAdsProp.
There is a listing to refernce "o" in LDAP as Business Unit. I need to pull that said name from LDAP Query "o".
Here is the code that I am working with:
Sub Update_List()
Set a = Application.Selection
For Each b In a.Rows
Number = b.Row
letter = b.Column
If Range("A" & Number).Value <> "" Then
corpID = Range("A" & Number).Value
Cells.Range("E" & Number).Value = GetAdsProp("samAccountName", corpID, "Name")
Cells.Range("F" & Number).Value = GetCNName(GetAdsProp("samAccountName", corpID, "Manager"))
Cells.Range("G" & Number).Value = GetCNName(GetAdsProp("samAccountName", corpID, "o"))
End If
Next
End Sub
Function GetAdsProp(ByVal SearchField As String, ByVal SearchString As String, ByVal ReturnField As String) As String
' Get the domain string ("dc=domain, dc=local")
Dim strDomain As String
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
' ADODB Connection to AD
Dim objConnection As ADODB.Connection
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
' Connection
Dim objCommand As ADODB.Command
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
' Search the AD recursively, starting at root of the domain
objCommand.CommandText = _
"<LDAP://" & strDomain & ">;(&(objectCategory=User)" & _
"(" & SearchField & "=" & SearchString & "));" & SearchField & "," & ReturnField & ";subtree"
' RecordSet
Dim objRecordSet As ADODB.Recordset
Set objRecordSet = objCommand.Execute
If objRecordSet.RecordCount = 0 Then
GetAdsProp = "not found" ' no records returned
Else
GetAdsProp = objRecordSet.Fields(ReturnField) ' return value
End If
' Close connection
objConnection.Close
' Cleanup
Set objRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
End Function
Function GetCNName(ByVal CNInput As String) As String
' GetCNName = Regex.Replace(CNInput, "CN=[^,]*,* *", "")
Set RE = CreateObject("vbscript.regexp")
' Get the first part of the CN string up to the second comma
RE.Pattern = "^CN=([^,]*,){2}"
Set foo = RE.Execute(CNInput)
' Get the matched part
CN = ""
For Each Match In foo
If CN = "" Then
CN = Match.Value
End If
Next
' Replace the first bit of text
RE.Pattern = "^CN="
CN = RE.Replace(CN, "")
' Replace the last comma
RE.Pattern = ",$"
CN = RE.Replace(CN, "")
' Replace the slash
RE.Pattern = "\\"
CN = RE.Replace(CN, "")
GetCNName = CN
End Function
Here is the error that I am getting:
Visual Basic Error
Get AdsProp Line issue
Any help would be greatly appreciated.
Thank You.