Cadenas puerto serie VB 2008 express

[cincosoft]

Hola,
Es la primera vez que hago algo con VB. Necesito leer los datos que me envia un aparato al puerto seria. Este funciona porque lo he probado con el Tera Term y veo que me llegan datos. El código que he creado es:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RTBTexto.Text = ReceiveSerialData()
End Sub
Function ReceiveSerialData() As String
' Receive strings from a serial port.
Dim returnStr As String = ""
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM1")
MessageBox.Show(com1.IsOpen)
Do
' Dim Incoming As String = com1.ReadLine()
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
End Using
Return returnStr
End Function
Al ejecutarlo el el programa se me queda en espera y el aparato conectado al puerto serie me dice que no hay transmisión, cosa que no pasa cuando prueba con el Tera Term.
Alguien me puede echar una mano? Paso a paso que es mi primera incursión en VB.
Muchas gracias.