Gracias por la ayuda. He conseguido sacar los datos que necesito en un campo de tipo variant.  El problema es que yo necesitaria esos datos en una lista, para mostrarla a traves de un prompt por ejemplo  y que el usuario pueda selecionar uno de los valores.   Ademas ahora me salen los valores con el nombre canonico "CN=Jose Perez//O=Servidor"  y yo necesito que me salgan "Jose Perez"

Aqui os pongo el codigo, por si me podeis ayudar.

    Dim ws As New notesuiworkspace
    Dim ss As New notessession
    Dim db As notesdatabase
    Dim user As New NotesName(ss.UserName)
    
    Set db=ss.currentdatabase
    
            ' Comprobamos si el usuario actual tiene activado el rol Admin
    roles =Evaluate("@userroles")
    Forall i In roles
        If i = "[Admin]" Then
            admin = "Si"
        Else
            admin = "No"
        End If
    End Forall
    
    If admin="Si"  Then
        ' como el usuario tiene el rol admin,  ahora hay que mostar una lista en pantalla de todos los usuarios que tienen el rol admin activo para seleccionar uno de ellos.
        Dim acl As NotesACL
        Dim firstEntry As NotesACLEntry
        
        Set acl = db.ACL
        Set firstEntry = acl.GetFirstEntry
        Set secondEntry = acl.GetNextEntry( firstEntry )
        
    'Dim acl As NotesACL
        Dim aclentry As NotesACLEntry
        Set aclentry = acl.GetFirstEntry
        While Not(aclentry Is Nothing)
            If aclentry.IsRoleEnabled("[Admin]") Then
                If GetEntriesByRole = "" Then
                    GetEntriesByRole = aclentry.Name
                Else
                    GetEntriesByRole = GetEntriesByRole & "~|~" & aclentry.Name
                End If
            End If
            Set aclentry = acl.GetNextEntry(aclentry)
        Wend
        
        entrada = ws.Prompt( PROMPT_OKCANCELLIST, "Habitat", "Seleccione un usuario", "", GetEntriesByRole )
        If entrada<>"" Then
            
        End If
    End If

Por cierto,  la aplicacion esta en V5 y corriendo en un server Domino 5