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

ブレークポイントを設定して、
何が起きているか、
SerialPort1.ReadLine()
データを読み出すのは、↑で良いかから、確認してください。
⇒プログラムは、コードを書いただけでは、動きません、必ずデバッグが必要です。
　　デバッグ機能を十二分に使えて、動くコードが書けると思ってください。
’
ReadLine に付いて調べましたか？
今回の場合は、
SerialPortで、１文字または、複数文字を、ターミネーション無で、
受信したいのですから
設定したターミネーション（行末コード）があるまで、受信しつづける
では、具合が悪いですよね？
SerialPortクラスのメソッドを調べて、自身で使いたい、実現したい内容の、
メソッドを使う必要があります。
’
ヒントに書きましたが、
SerialPort クラス　
には、なぜ？これほど沢山のメソッド、プロパティがあるのでしょうか？
考えてみてください。