mscomm如何按16进制发送字符串？

Question

'''添加一个 mscomm 控件
Dim i as integer ,j 
Dim vWord As Variant
Dim bWord(1 To 18) As Byte
    
for i = 1 to 10
    for j = 1 to 6
        bWord(j) = asc("A")
    next
    
    for j = 7 to 12
        bWord(j) = asc("B")
    next    for j = 13 to 18
        bWord(j) = asc("C") 
    next    vSend = bSend
    If MSComm1.PortOpen Then
        MSComm1.Output = vSend
    Else
        MSComm1.PortOpen = True
        MSComm1.Output = vSend
    End If
 
    Do While (MSComm1.OutBufferCount <> 0)
    Loop
next