すみません。コードを間違えておりました。
Textbox1の中身をstrSendに代入した状態でテストしています。

そのうえでの質問です。
[質問]
TextBoxに入力されたアルファベット「u」を送信したところ、
受信データは、F8 F8 80　となってしまいます。


失礼しました。

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        '送信データを文字列型strSendで宣言
        Dim strSend As String
        '送信データが未入力の場合の処理
        If TextBox1.Text.Length = 0 Then
            MessageBox.Show("送信文字列を入力してください", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Focus()
            Exit Sub
        End If

        'TextBox1に入力されたデータを送信データとする
        strSend = TextBox1.Text

        Try
            '文字列の送信
            Dim sdat() As Byte = System.Text.Encoding.GetEncoding("SHIFT-JIS").GetBytes(strSend)
            SerialPort1.Write(sdat, 0, sdat.GetLength(0))


        Catch ex As Exception
            MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub