这个问题我以解结了
用数组
Dim data(1) As Byte
data(0) = Val("&H" + TempByte)
data(1) = Val("&H" + TempByte)
MSComm1.Output = data    谢谢你们!