串口发送,该怎么解决

串口发送
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