主题：文本框发送数据

目前状态：

在窗口A中有一个按钮，当打开窗口A时，按钮通过串口发送A1，代码如下，已经实现。Ports("COM4").Write("A1")

希望实现：

在窗口A中增加一个TextBox1,TextBox1绑定到表B的第一列。希望打开窗口A时，TextBox1通过串口，把TextBox1的内容发送出去。

比如：TextBox1=第一列，第一列是"B1"时，当打开窗口A时，TextBox1把B1通过串口发送出去

请问代码如何写，谢谢