For i = 1 To oAccess.UserCount
      If oAccess.User(i).Class = cLinkUser Then
         If oAccess.User(i).SID = oLink.ID Then
            [...]
      End If
      [...]
   Next i

Public Property Get UserCount() As Long
UserCount = Users.Count
End Property
 
Public Property Get User(ByVal i As Long) As clsCUser
Set User = Users(i)
End Property

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}