OutputRTB.Select(OutputRTB.TextLength, 1)
        OutputRTB.SelectionColor = Color.Green
        OutputRTB.Text += vbNewLine & UsernameWhole & ": " & InputTxtBox.Text & vbNewLine


        OutputRTB.SelectionColor = Color.Blue
        OutputRTB.Select(OutputRTB.TextLength, 1)
        Dim InputStringDing As String = InputTxtBox.Text.ToLower
        Select Case True
            Case InputStringDing.Contains("hello")
                OutputRTB.Text += "Bot: " & "Hello there"
            Case InputStringDing.Contains("hi")
                OutputRTB.Text += "Bot: " & "Hi there"
            Case Else
                OutputRTB.Text += "No recognizable response. Sending to database."
        End Select