Cómo enviar datos hexadecimales a un puerto serie usando vb.net

El siguiente código es el código para convertir el hexadecimal separado por espacios en el cuadro de texto en bytes. El formato de los números en el cuadro de texto es: 01 02 03

Dim TestArray() As String = Split(. TextBox1.Text)

Dim hexBytes() Como Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i Como Entero

Para i = 0 A TestArray.Length - 1

hexBytes(i) = Val("&h" &) = Split(TextBox1.TestArray(i))

Siguiente paso

SerialPort.Write(hexBytes, 0, hexBytes.Longitud)