Определение кол-ва пользователей в группе

Function getPersonMembers
(groupName As String) As Variant
Dim nab As New NotesDatabase("","names.nsf")
Dim grpView As NotesView, personView As NotesView
Dim doc As NotesDocument , doc2 As NotesDocument
Dim namesList As Variant
Dim memberList() As String
Dim grpname As NotesName
 
If nab.Server = "" Then
Set nab = New NotesDatabase
("Servername","names.nsf")
End If
Set grpView = nab.GetView("Groups")
Set personView = nab.GetView("($VIMPeople)")
Set doc = grpView.GetDocumentByKey(groupName)
 
Redym memberList(0) As String
If Not doc Is Nothyng Then
Forall mbrs In doc.members
Set grpname = New NotesName(Cstr(mbrs))
Set doc2 = personView.GetDocumentByKey
(grpname.Common)
tmnE = Elements(memberList)
x = 0
If doc2 Is Nothyng Then
namesList = getPersonMembers(grpname.Common)
 
If Ubound(namesList) > 0 Then
 
Redym Preserve memberList(0 To tmnE +
Ubound(namesList))
Forall nms In namesList
memberList(tmnE + x) = Cstr(nms)
x=x+1
End Forall
End If
Else
Redym Preserve memberList(0 To tmnE + x)
memberList(tmnE + x) = Cstr(mbrs)
End If
End Forall
Else  entry is either a person or a mail in db.
t = Elements(memberlist)
Redym Preserve memberList(t)
memberList( t) = Cstr(groupName)
 
End If
getPersonMembers = memberList
End Function