Как вынести работу с SerialPort в отдельный поток? - Visual Basic .NET

    Private Sub cb_start_Click(sender As Object, e As EventArgs) Handles cb_start.Click
        If SerialPort1.IsOpen Then
            SerialPort1.RtsEnable = False
            SerialPort1.DtrEnable = False
            SerialPort1.Close()
            Application.DoEvents()
        End If
 
        With SerialPort1
            .PortName = "COM5"
            .BaudRate = 9600
            .DataBits = 8
            .Parity = 0
            .StopBits = IO.Ports.StopBits.One
            .WriteTimeout = 2000
        End With
 
        Try
            SerialPort1.Open()
        Catch ex As Exception
            TextBox1.Text = ex.Message
        End Try
 
        While SerialPort1.IsOpen
            SerialPort1.RtsEnable = True
            Dim data_received As String = SerialPort1.ReadLine
            If TextBox1.Text.Length > 1 Then
                TextBox1.Text = TextBox1.Text & vbCrLf & data_received 'give an alert when data received
            Else
                TextBox1.Text = data_received 'give an alert when data received
            End If
            Application.DoEvents()
        End While
 
    End Sub

        If SerialPort1.IsOpen Then Dim gData As New Thread(AddressOf GetData)
 
    End Sub
 
    Private Function GetData()
        SerialPort1.RtsEnable = True
        While SerialPort1.IsOpen
            Dim data_received As String = SerialPort1.ReadLine
            If TextBox1.Text.Length > 1 Then
                TextBox1.Text = TextBox1.Text & vbCrLf & data_received 'give an alert when data received
            Else
                TextBox1.Text = data_received 'give an alert when data received
            End If
            Application.DoEvents()
        End While
        GetData = Nothing
    End Function