えと、その場合は、Text1.TextにChr(2) & "d a 0 1 0 1 0 5" & Chr(5)を書いておいて、 Select Case MSComm1.CommEvent Case comEvSend Text1.Text = MSComm1.Outputで出来るのでしょうか?