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!