お疲れ様です。
ちょっと経験がある方がいらっしゃいましたらご意見を宜しくお願い致します。
PC1（XP)→PC2（XP)　（シリアル通信)
PC2とのやり取りは下記のようにしています。
MSComm.InputMode = comInputModeText

PC　　　　　　　　　　　　　　　　PC2
MSComm.CommPort = 2　　　　　　   CommPort = 1
MSComm.Settings = "9600,n,8,1"    Settings = "9600,n,8,1"
MSComm.Handshaking = comNone      Handshaking = comNone
MSComm.RThreshold = 1
MSComm.SThreshold = 1

Dim a, b As String
a = MSComm.Input-"TEST"と入ってきます。
b = "TEST_OK"と返したいですが....

If a <> "TEST" Then
    
    MSComm.Output = b
　　’MSComm.Output = a　-来た値をそのまま返すとPC2側で見れるのですが。
　　’bの値は全く受け取ってくれる気配がありません。なんでなんでしょうか？？
　　’PC2でCOMモニタリングで見る限り正常でした。
　　
End If

何か間違いな点が御座いましたらご指摘の方宜しくお願い致します。
頭パンク状態で基本的な質問をしてしまい申し訳御座いませんが宜しくお願い致します。

通信部分のプログラムをそのまま掲載してください。

> Dim a, b As String
> a = MSComm.Input-"TEST"と入ってきます。
> b = "TEST_OK"と返したいですが....

こんな書き方をしたらプログラムが動くはずがないので。

ミッキーさん返信ありがとう御座います。
先程突然プログラム構成を閃いたので、試して見たら。
PC-PCのやり取りが出来るようになりました。