Как организовать непрерывный опрос Com-порта?

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        'запись сообщения в порт
        Dim n As Integer
        Dim s As String = Format(Now, "hh:mm:ss") 'Это передаваемый текст
        Dim SPnt As IntPtr = Marshal.StringToCoTaskMemAnsi(s)
        FlushFileBuffers(portHandle)   'очищаем буфер порта
        WriteFile(portHandle, SPnt, Len(s), n, lpOVERLAPPED)
        If GetLastError <> ERROR_IO_PENDING Then
            MsgBox("Ошибка")
        Else
            Timer1.Start()
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim n As Integer
        If GetOverlappedResult(portHandle, lpOVERLAPPED, n, False) Then
            Label3.Text = "Получены/переданы новые данные - " & n.ToString & " байт"
            Dim V As New System.Text.UTF8Encoding()
            Label4.Text = V.GetString(buf)
            Timer1.Stop()
        Else
            Label3.Text = "Новых данных нет"
        End If
    End Sub
    Private Sub btnReceived_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReceived.Click
        'чтение сообщения из порта
        Dim n As Integer
        Dim mPnt As IntPtr = GCHandle.Alloc(buf, GCHandleType.Pinned).AddrOfPinnedObject()
        FlushFileBuffers(portHandle) 'очищаем буфер порта
        ReadFile(portHandle, mPnt, 128, n, lpOVERLAPPED)
        'проверяем отсутствие ошибки
        If GetLastError <> ERROR_IO_PENDING Then
            MsgBox("Ошибка")
        Else
            Timer1.Start()
        End If
    End Sub

Imports System.IO.Ports
 
Public Class Form1
    Private mySerialPort As New SerialPort
    Private comBuffer As Byte()
    Private Delegate Sub UpdateFormDelegate()
    Private UpdateFormDelegate1 As UpdateFormDelegate
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'автоопределение всех последовательных портов в системе и заполнение ими поля со списком cboPortName.
        Dim ArrPort As Array  'Com-порты обнаруженные в системе будут храниться здесь
        ArrPort = SerialPort.GetPortNames() 'Получить все доступные Com-порты
        cboPortName.DropDownStyle = ComboBoxStyle.DropDownList 'пользователь не должен иметь возможность вводить ошибочные значения названий портов
        For i = 0 To UBound(ArrPort)
            cboPortName.Items.Add(ArrPort(i))
        Next
        cboPortName.Text = cboPortName.Items.Item(0)    'Присвоим свойству Text элемента cboPortName  имя первого обнаруженого com-порта 
        'заполнение поля со списком cboBaudRate возможными константами:
        cboBaudRate.DropDownStyle = ComboBoxStyle.DropDownList 'пользователь не должен иметь возможность вводить ошибочные значения Baud Rate
        cboBaudRate.Items.Add(4800)
        cboBaudRate.Items.Add(9600)
        cboBaudRate.Items.Add(19200)
        cboBaudRate.Items.Add(38400)
        cboBaudRate.Items.Add(57600)
        cboBaudRate.Items.Add(115200)
        cboBaudRate.Text = cboBaudRate.Items.Item(0)    'Присвоим свойству Text элемента cboBaudRate первую испольуемую скорость передачи данных из списка
        'Изначально отключить кнопку btnClosePort
        btnClosePort.Enabled = False
        AddHandler mySerialPort.DataReceived, AddressOf mySerialPort_DataReceived
    End Sub
    Private Sub btnOpenPort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenPort.Click
        OpenComPort()
    End Sub
 
    Private Sub btnClosePort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClosePort.Click
        CloseComPort()
    End Sub
    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        'запись сообщения (массива байт) в порт
        Dim s As String = Format(Now, "hh:mm:ss") 'Это передаваемый текст
        Dim buffer() As Byte = System.Text.Encoding.Default.GetBytes(s) 'Преобразуем строку в массив байт
        Dim offset As Integer = 0 'смещение
        Dim count As Integer = buffer.Length  'количество передаваемых байт
        mySerialPort.Write(buffer, offset, count)
    End Sub
 
    Private Sub btnReceived_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReceived.Click
        'чтение сообщения (массива байт) из порта
        Dim buffer(127) As Byte
        Dim offset As Integer
        Dim count As Integer
        Dim returnValue As Integer 'количество считанных из порта байт
        returnValue = mySerialPort.Read(buffer, offset, count)
    End Sub
    Sub OpenComPort()
        Try
            If Not mySerialPort.IsOpen Then 'если порт ещё не открыт
                'Имя Com-порта:
                mySerialPort.PortName = cboPortName.SelectedItem.ToString
                'Скорость передачи данных:
                mySerialPort.BaudRate = CInt(cboBaudRate.Text)
                'Остальные параметры:
                mySerialPort.Parity = Parity.None
                mySerialPort.DataBits = 8
                mySerialPort.StopBits = StopBits.One
                mySerialPort.Handshake = Handshake.None
                mySerialPort.ReadTimeout = 3000
                mySerialPort.WriteTimeout = 5000
                'Открываем Com-порт
                mySerialPort.Open()
                'приводим в соответствие с этим событием кнопки открытия-закрытия порта
                btnClosePort.Enabled = True
                btnOpenPort.Enabled = False
            Else
                'порт уже открыт и проинициализирован
            End If
        Catch ex As InvalidOperationException
            MessageBox.Show(ex.Message)
        Catch ex As UnauthorizedAccessException
            MessageBox.Show(ex.Message)
        Catch ex As System.IO.IOException
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub CloseComPort()
        Using mySerialPort
            If (Not (mySerialPort Is Nothing)) Then
                'COM-порт существует.
                If mySerialPort.IsOpen Then 'Com-порт открыт
                    'Ждать, пока буфер передачи не будет пуст.
                    Do While (mySerialPort.BytesToWrite > 0)
                    Loop
                    'приводим в соответствие с этим событием кнопки открытия-закрытия порта
                    btnClosePort.Enabled = False
                    btnOpenPort.Enabled = True
                Else
                    'Порт не открыт
                End If
            End If
        End Using
    End Sub
 
    Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)  'Handles serial port data received events
        UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
        Dim n As Integer = mySerialPort.BytesToRead 'find number of bytes in buf
        Dim comBuffer As Byte() = New Byte(n - 1) {} 're dimension storage buffer
        mySerialPort.Read(comBuffer, 0, n) 'read data from the buffer
        Me.Invoke(UpdateFormDelegate1) 'call the delegate
    End Sub
    Private Sub UpdateDisplay()
        'Label3.Text = CStr(comBuffer(0))
        'Преобразовываем массив байт в строку
        Dim V As New System.Text.UTF8Encoding()
        Label4.Text = V.GetString(comBuffer)  'здесь возникает исключение "Массив не может быть неопределенным."
    End Sub
End Class

comBuffer = New Byte(n - 1) {}

Dim comBuffer As Byte() = New Byte(n - 1) {}