未知"Text2.Text = n" 中的 n 是什么。
其實把 rthreshold置為1（每字符處理一次）則可處理任意長度的字串：

Private Sub comm1_OnComm()
Dim s$,s1$

Select Case comm1.CommEvent
 Case comEvReceive
     s = comm1.Input
    '例: 每一字符都更新一次text2.text
         text2.text = text2.text & s
    '或: 如果"bb" 是通訊協(xié)議中固定用的的結束符，則可在收到等它出現(xiàn)時再更新text2.text
        s1 = s1 & s
        If Len(s1) > 2 Then
           Iif Right(s1) = "bb" then
               text2.text = s1
               '建立本串接收結束標志,通知可繼續(xù)發(fā)送等
               ......
            End If
        End If
End Select

End Sub