Ayuda interficie VB - COM3

Buenas foreros!

Este es el codigo de mi aplicacion en Visual Basic 2010:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cad As String
cad = ReceiveSerialData()
Me.TextBox1.Text = cad
End Sub
Function ReceiveSerialData() As String
' Receive strings from a serial port.
Dim returnStr As String = ""

Dim COM3 As IO.Ports.SerialPort = Nothing
Try
COM3 = My.Computer.Ports.OpenSerialPort("COM3")
COM3.ReadTimeout = 10000
Do
Dim Incoming As String = COM3.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If COM3 IsNot Nothing Then COM3.Close()
End Try

Return returnStr
End Function

End Class

-->Tengo un simple formulario con un TextBox i un boton.
-->El Arduino lo tengo conectado al COM3.Este lee datos de temperatura,pression y humedad.
-->El programa debería leer el puerto serie COM3 y mostrarlo en el texbox.
No me salen errores de codigo pero me sale esto:

Excepción del tipo 'System.UnauthorizedAccessException' en System.dll
Excepción del tipo 'System.UnauthorizedAccessException' en System.dll

Si alguien me puede ayudar....

Un saludo!