discord chat bot channel specific chat

Public Sub onMessageRec(sender As Object, e As Discord.MessageEventArgs) Handles discord.MessageReceived
        Dim message = e.Message.RawText
        Dim username = e.User.Name
        Dim channel = e.Channel.Name


        If CheckBox2.CheckState = CheckState.Checked Then
            addLine("<font color=grey><</font><font color=green>#" & channel & "</font><font color=grey>> <</font><font color=purple>" & username & "</font><font color=grey>></font> <font color=white>" & message & "</font><br>")
        ElseIf System.IO.File.ReadAllText(Application.StartupPath & "\channel.dat").Equals(channel) Then
            addLine("<font color=grey><</font><font color=green>#" & channel & "</font><font color=grey>> <</font><font color=purple>" & username & "</font><font color=grey>></font> <font color=white>" & message & "</font><br>")
        End If

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        System.IO.File.WriteAllText(Application.StartupPath & "\channel.dat", ComboBox1.Text)

    End Sub


------------------------------------------

timer 2 always enabled true
timer 2 delay 100ms

Remember the chat will not load when you go to join the channel again. How ever you can if you really felt like it.