vb 提高串口发送速度

原始做法For i = 0 To LenB(Send$) step 2
    m1$ = MidB$(Send$, i, 2)
    InterFilForm.Comm1.Output = m1$
Next现在做法
Dim sendOneWord(1) As Byte
For i = 0 To LenB(Send$) step 2
    m1$ = MidB$(Send$, i, 2)
    Call StringToByteArray_B(sendOneWord, m1$, 2)    将每个string 字符转为byte
    InterFilForm.Comm1.Output = sendOneWord
Next发现现在做法比以前发送慢了很多，为什么，怎么提高发送速度