Private Sub Port1_DataReceived(ByVal sender As Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles Port1.DataReceived
        If CheckBox3.Checked = True _
        Then
            TextBox2.Text = TextBox2.Text & Port1.ReadExisting
        End If
    End Sub