Adding text to a textbox via a textbox in Cefsharp Chromium

[nitrozity]

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"

  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:

  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.