I'm using Cefsharp Chromium and trying to make this code use a textbox as an input message rather than a pre-set message like I have set "The Reply"

Code:
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim jsScript As String = <js><![CDATA[
         document.all("message").value = "The Reply";
                             ]]></js>.Value
            _browser.ExecuteScriptAsync(jsScript)
            browser.ExecuteScriptAsyncWhenPageLoaded("document.getElementById('quick_reply_submit').click()")
  End Sub
What I've tried:

Code:
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim jsScript As String = <js><![CDATA[
         document.all("message").value = (TextBox1.Text)
                             ]]></js>.Value
            _browser.ExecuteScriptAsync(jsScript)
            browser.ExecuteScriptAsyncWhenPageLoaded("document.getElementById('quick_reply_submit').click()")
  End Sub
Any assistance is greatly appreciated. TIA.