Imports System
Imports System.IO.Ports

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1 = New SerialPort("COM1", 9600, Parity.None, 8, StopBits.One)

        SerialPort1.Open()    
        TextBox1.Text = ""

        TextBox1.Text = SerialPort1.ReadChar()
        SerialPort1.Close()

    End Sub
End Class

ผมลองหาข้อมูลจากใน google ดูแล้วลองทำตามแต่ว่าไม่ได้ผลครับ
ไม่รู้ว่าผมควรแก้ไขตรงไหนดีครับ

ขอบคุณครับ