Private Async Function onMessage(message As SocketMessage) As Task
        Dim user = TryCast(message.Author, SocketGuildUser)
        If message.Source <> MessageSource.Bot And _
          message.Content.StartsWith("!") Then
            If message.Content.StartsWith("!say 1") And DirectCast( _
            message.Author, SocketGuildUser).Roles.ToList.Contains(DirectCast( _
            message.Channel, IGuildChannel).Guild.GetRole(91586140315277)) Then
 
                Await message.Channel.SendMessageAsync("2")
                Await user.SendMessageAsync("2")
            End If
        End If
    End Function