Reading from serial com

[dwkw]

Can anybody improve on my code to read from serial port and store it in a variable?

Public Class Form1
'SerialPort object creation
WithEvents mySerialPort As New IO.Ports.SerialPort

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'setting the mySerialPort settings
With mySerialPort
.PortName = "COM1"
.BaudRate = 9600
.Parity = IO.Ports.Parity.Even
.DataBits = 7
.StopBits = IO.Ports.StopBits.One
.Open()

End With
End Sub
End Class