ayuda uegente

[pkj]

No he usado winsock, pero como nadie te contesta te daré mi opinion.
Como creo que tu problema se refiere a que solo recibes un dato cada vez, igual lo que necesitas sería un bucle hasta que recibas una cadena en blanco.


Dim sData As String

Do

Winsock1.GetData sData, vbString

If sData="" Then Exit Do

'Label1.Caption = sData
txtPrice.Text = sData
Label4.Caption = sData
Label5.Caption = sData






With List1
.AddItem "Maestro: " & sData
.AddItem "tarjeta :" & sData
.AddItem "rut :" & strOutData
End With

Label3.Caption = "Recibiendo datos"
shpGo.Visible = True
shpWait.Visible = False
shpError.Visible = False

Loop

Saludos y suerte