Visual Basic.NET - DoEvents y SerialPort

Tengo la siguiente función en bv6 y necesito pasarla a .net:
lo que pasa es q despues de cambiar el mscomm1.imput por serialport1.readexisting, cuando salgo de la aplicación me saka un error xq cierra el puerto y se queda en el doevents, como puedo arreglar esto, es urgente!!!!!!

Private Sub cmdIniciar_Click()

cmdIniciar.Caption = "Continuar"
txtPaquetes = ""
txtPaquetes.SetFocus

txtPaquetes.Locked = True

MsgBox "Puede Empezar a registrar los cupones", , "Recaudos Masivos"

Parar = False
Do
DoEvents

txtPaquetes.Text = txtPaquetes.Text & MSComm1.Input

Loop Until Parar = True
txtPaquetes.SetFocus
txtPaquetes.SelStart = Len(txtPaquetes.Text) + 1
If txtPaquetes.Locked = True Then
Verificar1
End If
End Sub