igoten 様
回答ありがとうございます。
原因箇所がわかりました。 受信文字をテキストに代入する
Private Sub AddText(ByVal strGetText As String)
TextBox3.Text=strGetText
*****************
End Sub
受信後の処理を******この部分に記述するとエラーになり、テキストボックスのみ
ではエラーが起こりません。とりあえずテキストボックスのTextChangedに処理を書き込む
ようにしました。何か影響しているのでしょうか、