Comunicación serie visual basic

Tengo un problema con la comunicación serie en visual basic, en esto soy un poco novato. Estoy realizando el proyecto fin de carrera con un dosimetro de ruido, y quiero extraer los datos medidos del dosimetro para su interpretación. Lo hago a través de un conversor rs-232 a usb puesto que tengo portátil, comunicándome con un puerto COM virtual. Aquí os dejo mi código de programación y a ver si me puede echar una mano con esto:
Dim textout, textin As String
Private Sub Cmdcon_Click()
If Cmdcon.Caption = "CONECTAR" Then
    puerto.CommPort = Val(Cmbsel.ListIndex + 1)
    puerto.PortOpen = True
    Cmdenv.Visible = True
    Timer1.Enabled = True
    Cmdcon.Caption = "DESCONECTAR"
Else
    If Cmdcon.Caption = "DESCONECTAR" Then
    Timer1.Enabled = False
    Cmdcon.Visible = False
    puerto.PortOpen = False
    Cmdcon.Caption = "CONECTAR"
    End If
End If
End Sub
Private Sub Cmdenv_Click()
textout = Text1.Text
puerto.Output = textout
End Sub
Private Sub Cmdrec_Click()
textin = puerto.Input
Label1.Caption = textin
End Sub
Private Sub Cmdgua_Click()
Open Archivo For Output As #1
Print #1, Date
Print #1, Dato
Close #1
End Sub
Private Sub Timer1_Timer()
textin = puerto.Input
If textin <> "" Then
    Label1.Caption = textin
End If
End Sub