发送不确定的数组
Dim OutByte() As Byte
ReDim OutByte(5) ；有效数字最大为255
 OutByte(0) = 0
 OutByte(1) = 1
 OutByte(2) = 2
 OutByte(3) = 65 'A
 OutByte(4) = 66 'B
 OutByte(5) = 67 'C
 MSComm1.Output = OutByte

太感谢了，这么快回复，以后有什么问题还请多赐教，谢谢辉哥！