Dim Server Set Server = CreateObject("UserManager.Server") Server.Users("Coll").Comment = "Power user"