Serial Portで受信したデータを表示させる方法について。

次のコードでSerial Portで受信したデータを表示させるプログラムに取り組んでいますが、
全くデータが表示されなくて困っています。

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'Tickイベント (Timerプロパティで指定された間隔の時間が経過したときに発生するイベント)
        AddHandler Timer1.Tick, AddressOf Data_Check
    End Sub

    Private Sub Data_Check()
        If (SerialPort1.BytesToRead > 0) Then
            '入力バッファ内のラインフィード(行末）まで読み取ったデータをrdatで宣言

            Dim rdat As Integer = SerialPort1.ReadLine()
            TextBox2.Text = rdat


        End If
    End Sub


[今の状況]
送信側からは、1秒おきに"Q" (ASCIIコード 51)を送信しています。
(正しく送信できていることは、信号波形とXCTU(XBee設定ツール）で確認しました。）