Module Module1
    'запись данных в последовательный порт
    Sub SendSerialData(ByVal data As String) 'Отправляет в порт значение переменной data
        'Открывается порт и указываются параметры его работы
        Using com4 As IO.Ports.SerialPort =
            'My.Computer.Ports.OpenSerialPort("COM4")
            My.Computer.Ports.OpenSerialPort("COM4", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
            com4.WriteLine(data)
            com4.Close()
        End Using
    End Sub
    'чтения данных из последовательного порта
    Function ReceiveSerialData() As String
        ' Receive strings from a serial port.
        Dim returnStr As String = ""

        Using com1 As IO.Ports.SerialPort =
            '            My.Computer.Ports.OpenSerialPort("COM4")
            My.Computer.Ports.OpenSerialPort("COM4", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
            Do
                Dim Incoming As String = com1.ReadLine()
                If Incoming Is Nothing Then
                    Exit Do
                Else
                    returnStr &= Incoming & vbCrLf
                End If
            Loop
            com1.Close()
        End Using

        Return returnStr
    End Function

    Sub Main()

        Dim Data As String
        Data = "Test"

        Console.WriteLine("Writing the following data to COM4: " & Data)
        SendSerialData(Data)

        Console.WriteLine("Read the following data from COM4: " & ReceiveSerialData())

        Console.WriteLine("Press ENTER to quit")
        Console.ReadLine()

    End Sub

End Module