我需要使用串口向外发送命令,字节数组,binary接收方式,接收缓冲区=1,发送缓冲区=0
Dim bSend(0 To 14) As Byte, iTotal As Integer, i As Integer
    bSend(0) = 16 * 6 + 8              
    bSend(1) = 9                        
    bSend(2) = 9                        
    bSend(3) = 16 * 6 + 8               
    bSend(4) = 16 * 5 + 3                  
    bSend(5) = 1                        
    bSend(6) = 100                      
    bSend(7) = 1                        
    bSend(8) = 6                        
    bSend(9) = 1                        
    bSend(10) = 0                      
    bSend(11) = 0                      
    bSend(12) = 20           
    For i = 4 To 12
        iTotal = iTotal + bSend(i)
    Next i
    bSend(13) = iTotal Mod 256                     '校验和
    bSend(14) = 16 + 6                 '16H
    Com_Nari.Output = bSend
 这段代码有问题吗?