Dear friends,
I have try to make a simple program that asks users to input sth (name, age, etc) in computer A.
And then, the program (in comp A) sends the collected data to comp. B via winsock.
I expect the program in comp B to list the result as follow.

Name Age Sex
------- ---- ---
John 20 M
Diane 18 F
Xisco 50 M
Wang 46 F

But, in point of fact the program (in comp B) shows the result like this:
Name Age Sex
------- ---- ---
John 20 M Diane 18 F Xisco 50 M ...
John 20 M Diane 18 F Xisco 50 M ...
...
John 20 M Diane 18 F Xisco 50 M ...
John 20 M Diane 18 F Xisco 50 M ...

Please, could anybody help me find the solution?
Sincerely yours,

yoz1ris

Excerpt of the code:
...(in a module of program A)...
If lResult <> 0 Then _
strDat = strName & vbTab & strAge & vbTab & strSex
frmSend.w2.SendData strDat
End Function

...(in a form of program B)...
Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim strDat As String
w1.GetData strDat
lstProc.AddItem strDat
End Sub
-------end of excerpt-------