> (1つ前の質問における、データの並び順は解決していませんが、とりあえず配列の順番を変えて対応しています。）
それで良いとおもいます。


> 何回か試していますが、一応できていると思われます。
提示のコードについて少しだけ。


> Private Sub RcvDataToTextBox(n As UShort)
> 　If IsNothing(n) = False Then
この If 文は不要なので削除するべきかと思うのですが、
何を意図した判定文なのでしょうか?

引数 n は構造体（値型）ですので、IsNothing は常に False しか返さないですよ。


> Dim b1 As String = Convert.ToString(n, 10)       '10進数表記の "1023" に変換 
> RcvYTextBox.AppendText(b1)
その出力方法だと、複数のデータが送られてきたときに、
「10」「23」 なのか「102」「3」なのか区別できなくなるのでは。

スペースや改行などで区切って繋いだ方がよろしいかと。