Word VBA - LDAP-Abfrage nach otherfacsimileTelephoneNumber - Was kommt da denn zurück?

Dim objRoot, strDomain, objConn, objComm, objRecordset
Dim sFilter, sAttribs, sDepth, sBase, sQuery
     
Set objRoot = GetObject("LDAP://RootDSE")  
strDomain = objRoot.Get("DefaultNamingContext")  
Set objConn = CreateObject("ADODB.Connection")  
Set objComm = CreateObject("ADODB.Command")  
     
sFilter = "(&(objectClass=person)(sn=" & strNachname & ")(givenName=" & strVorname & "))"  
sAttribs = "telephoneNumber,facsimileTelephoneNumber,otherfacsimileTelephoneNumber,mail"  
sDepth = "SubTree"  
sBase = "<LDAP://" & strDomain & ">"  
sQuery = sBase & ";" & sFilter & ";" & sAttribs & ";" & sDepth  
     
objConn.Open "Data Source=Active Directory Provider;Provider=ADsDSOObject"  
Set objComm.ActiveConnection = objConn
objComm.Properties("Page Size") = 10000  
objComm.CommandText = sQuery
Set objRecordset = objComm.Execute
     
Dim VariantVal As Variant
Dim StringVal(2) As String
     
Do Until objRecordset.EOF
    Me.Label16.Caption = strVorname & " " & strNachname  
    Me.Label17.Caption = Nz(objRecordset("telephoneNumber"), "nicht gefunden")  
    StringVal(1) = CStr(Nz(objRecordset("otherfacsimileTelephoneNumber"), ""))  
    MsgBox StringVal(1)
    
    If Nz(StringVal(1), "") = "" Then  
        Me.Label18.Caption = Nz(objRecordset("facsimiletelephoneNumber"), "nicht gefunden")  
        Else
            a = MsgBox("Der Benutzerdatensatz enthält die alternative Fax-Nummer " & objRecordset("otherfacsimileTelephoneNumber") & ". Soll diese verwendet werden, statt der regulären?", vbYesNo)  
            If a = vbNo Then
                Me.Label18.Caption = Nz(objRecordset("facsimiletelephoneNumber"), "nicht gefunden")  
                Else
                Me.Label18.Caption = Nz(objRecordset("otherfacsimiletelephoneNumber"), "nicht gefunden")  
            End If
    End If
    objRecordset.MoveNext
Loop

Function Nz(strItem, strReturn)
    If IsNull(strItem) Then
        Nz = strReturn
        Else
            Nz = strItem
    End If
End Function