Dim str As String = ""For Each u As UserInfo In Users If u.Type = UserTypeEnum.User Then str &= u.Group & "," & u.Name & "|" End IfNext
msgbox(str.Trim("|"))