Development VB.Net

Imports System
Imports System.IO.Ports
Imports System.Threading
Public Class PortChat
    Shared _serialPort As SerialPort
    Public Shared Sub Main()
        Dim message As String
        Dim sComparer As StringComparer = StringComparer.OrdinalIgnoreCase
        _serialPort = New SerialPort()
        _serialPort.ReadTimeout = 500
        _serialPort.WriteTimeout = 500
        _serialPort.Open()
        _serialPort.WriteLine("message")
        message = _serialPort.ReadLine()
        Console.WriteLine(message)
    End Sub
End Class