1回で掲示できなかったので、続きのコードを掲示します。

            '②　6バイト目を取り出して、F2,F0 が連続しているか確認する 
            SerialPort1.Read(bin, 5, 1)
            If bin(4) = &HF2 AndAlso bin(5) = &HF0 Then
                'x1-x2-y1-y2--F2-F0 パターン 

                Dim datax As Byte() = {bin(1), bin(0)}
                Dim xbyte As UShort = BitConverter.ToUInt16(datax, 0)    '符号なし2 バイト整数に変換 
                Dim xdec As String = Convert.ToString(xbyte, 10)           '10進数表記の "1023" に変換 
                Invoke(New Delegate_RcvXDataToTextBox(AddressOf RcvXDataToTextBox), xdec)

                Dim datay As Byte() = {bin(3), bin(2)}
                Dim ybyte As UShort = BitConverter.ToUInt16(datay, 0)    '符号なし2 バイト整数に変換 
                Dim ydec As String = Convert.ToString(ybyte, 10)           '10進数表記の "1023" に変換 
                Invoke(New Delegate_RcvYDataToTextBox(AddressOf RcvYDataToTextBox), ydec)

                Return

                '③
            ElseIf bin(5) = &HF2 AndAlso bin(0) = &HF0 Then
                'F0-x1-x2-y1-y2-F2 パターン 

                Dim datax As Byte() = {bin(2), bin(1)}
                Dim xbyte As UShort = BitConverter.ToUInt16(datax, 0)    '符号なし2 バイト整数に変換 
                Dim xdec As String = Convert.ToString(xbyte, 10)           '10進数表記の "1023" に変換 
                Invoke(New Delegate_RcvXDataToTextBox(AddressOf RcvXDataToTextBox), xdec)

                Dim datay As Byte() = {bin(4), bin(3)}
                Dim ybyte As UShort = BitConverter.ToUInt16(datay, 0)    '符号なし2 バイト整数に変換 
                Dim ydec As String = Convert.ToString(ybyte, 10)           '10進数表記の "1023" に変換 
                Invoke(New Delegate_RcvYDataToTextBox(AddressOf RcvYDataToTextBox), ydec)

                Return
            End If

            '合致パターン無し！ 
            Debug.WriteLine("不正なデータ：" & BitConverter.ToString(bin))
        End If
    End Sub