Function expandGroupListMembers(GroupName) As Variant
   
   
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim gView As NotesView     
    Dim memberList As Variant
    Dim gDoc As NotesDocument

        Set db = session.CurrentDatabase
    Dim nab As New NotesDatabase(db.Server ,"names.nsf") ' this assumes that db is NOT running locally but is a server

    Set gView = nab.GetView("($VIMGroups)" )
    Set gDoc = grpsView.GetDocumentByKey( GroupName , True )
   
    If gDoc Is Nothing Then Exit Function 'could not find this GroupName in view so stop and return empty
   
    memberList = gDoc.GetItemValue( "Members" )
    Forall member In memberList
        Dim subMemberList As Variant
        subMemberList = expandGroupList(member) 'see if member is a group and if so get its members
        If Not Isempty(subMemberList) Then
                       'member was a group, now add all its members to list  
            If Isempty (expandGroupList) Then
                expandGroupList = subMemberList
            Else                              
                expandGroupList =  AddArraysEval (expandGroupList, subMemberList)  
            End If         
        Else
                        'member was not a group therefore assume is a person and add to list   
                        ' note it could be a server or something else
            If Isempty (expandGroupList) Then
                expandGroupList = member
            Else
                expandGroupList =  AddArraysEval (expandGroupList, member)     
            End If         
           
        End If
    End Forall
   
   
   
End Function

Function AddArraysEval (a1 As Variant, a2 As Variant) As Variant
'from http://www.nsftools.com/tools/lsbook.htm
'** add two arrays or scalar values using @Functions
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim var As Variant
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument(db)
    Call doc.ReplaceItemValue("a1", a1)
    Call doc.ReplaceItemValue("a2", a2)
    AddArraysEval = Evaluate("a1 : a2", doc)
'** clean up the memory we used
    Set doc = Nothing
    Set db = Nothing
End Function