Sub ListUsers()
' List the users for a connection


  Dim custUsers As CustomizationUsers
  Dim usr As CustomizationUser
  Dim UList As List
   
  Set custUsers = tdc.Customization.Users

  Set UList = custUsers.Users
  Debug.Print UList.Count
  
  Dim maxU%, uCnt%
  
  maxU = 5
  
  For Each usr In UList
    uCnt = uCnt + 1
    With usr
        Debug.Print .name & ", " & .Email
    End With
    If uCnt > maxU Then Exit For
  Next usr

Exit Sub
ErrorHandler:
    ErrHandler err
End Sub