上面的代码看不出问题，如果初始化串口控件时已经注册了AxMSComm1_OnComm，有数据接收应该能触发，至于为什么没有触发，要看看你的接收方是否已经收到你的发出指令，是否已经有响应数据回发。
创新互联公司专注于企业营销型网站建设、网站重做改版、安图网站定制设计、自适应品牌网站建设、H5网站设计、商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为安图等各大城市提供网站开发制作服务。
建议分开调试，用一个通用的串口助手，如格西烽火串口助手之类的，分别调试你的上位机和下位机。格西烽火串口助手能轻松的定制如你上面的发送数据。
关于串口通讯的问题：
很明显，你还不知道（不会、不习惯）使用事件驱动的方式接收数据。
建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件，你的问题很容易解决。
关于以太网通讯：
在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例。
但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法。
或者，干脆不用TCP，用UDP解决也可以。
首先：
textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建的，需要跨线程操作。需要用到委托，这样才能显示出来。
其次：
我觉得用串口的接收数据事件更好一些。
下面代码供参考：
'----------------------
'串口接收数据事件，其实比用定时器更好，
'触发事件的条件可以自己在form_load中设置ReceivedBytesThreshold属性数值，默认为ReceivedBytesThreshold=1
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim strRecvData As String = ""
strRecvData = SerialPort1.ReadExisting
Call disPlayComData(strRecvData)
End Sub
Delegate Sub callback(ByVal strT As String) '定义委托
Sub showString(ByVal comdata As String) '显示结果
Me.TextBox1.Text = "结果：" comdata
End Sub
Sub disPlayComData(ByVal strTmp As String) '判定是否为跨线程
If Me.TextBox1.InvokeRequired Then
Dim d As New callback(AddressOf showString)
Me.Invoke(d, New Object() {strTmp})
Else
Me.TextBox1.Text = strTmp
End If
End Sub
上位机软件接收大量数据并显示，会造成界面卡顿，可采用双缓冲技术，即将数据存到内存，再将其绘制到界面，比将数据直接绘制到界面要省很多时间
添加在子进程里面，就加在你批量传输代码里的每一个传输后面，也就是大批量中的每传输一个数据就暂停一下，而不是每一个大批量才暂停一下。
不是很明白你的题意
strHex = strHex + [String].Format("{0:X2} "
这里的意思是把每个字节数据转换成了十六进制，每个字节占两个字符
如果你串口收到的4个字节数据：43,27,56,200
那么你的结果是：2B1B38C8
即receivebytes.Text="2B1B38C8"
不足两位的补0
如果你串口收到的4个字节数据：3,27,56,200
那么你的结果是：031B38C8
即receivebytes.Text="031B38C8"
