Case "mute"
                            If DirectCast(e.Author, SocketGuildUser).Guild.GetRole("Muted").Id = True Then
                                Dim role = DirectCast(e.Author, SocketGuildUser).Guild.GetRole("Muted")
                                Await DirectCast(e.MentionedUsers.FirstOrDefault(), SocketGuildUser).AddRoleAsync(role)

                            Else
                                Await chn.SendMessageAsync("`The <Muted> role doesn't exist. It will be create now!`")
                                Dim role As IRole = DirectCast(e.Channel, SocketGuild).CreateRoleAsync("Muted")
                                Dim finalrole = role.Permissions.SendMessages = False

                            End If