串口发送,该怎么解决

串口发送
Dim MyData(255) As Byte
   
  For i = 0 To 31
   
  MyData(i) = data(i)
   
  Next i
   
  MSComm1.Output = MyData
   
  Do
   
  DoEvents
   
  Loop Until MSComm1.OutBufferCount = 0
这是我串口的发送部分。位什么每次都发256个，我只要发送32个就可以，怎么设置哦？谢谢！

[解决办法]

VB code

Dim MyData(31) As Byte