Como enviar varios bytes por puerto serie

hola buenas tardes, mi duda es la siguiente.

necesito enviar los siguiente bytes por el puerto serie, ya que son un comando para comunicarme con otra maquina.

&H30, &H00, &H01, &H01, &H32

lo estoy intentando realizar de la siguiente manera:

Private Sub writebutton_Click(sender As Object, e As EventArgs) Handles writebutton.Click

Dim mBuffer As Byte() = New Byte(3) {}
mBuffer(0)= &H30
mBuffer(1)= &H0
mBuffer(2)= &H1

mBuffer(3)= &H1

mBuffer(4)= &H32
SerialPort1.Write(mBuffer,0, mBuffer.Length)

end class

pero de esta forma cuando le doy al botón para enviar los bytes... Solamente envía los dos primeros (30 y 0) y cuando le doy otro click (al botón) salen los siguientes bytes (1 y 1), no salen completos, lo que necesito es que se manden por el puerto serie como "3001132" ya lo intente mandándolos como string o mandándolos con con variables diferentes y el resultado es el mismo... Agradecería mucho su ayuda!!

de antemano gracias

saludos!