Adding text to a textbox via a textbox in Cefsharp Chromium

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.