Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData() As String
'****Static strBuffer As String
Dim strReceived As String
Dim lngPos As Long
'****Dim boFinished As Boolean
Winsock1.GetData strReceived
'****strBuffer = strBuffer '& strReceived
'****Do
lngPos = InStr(strReceived, vbCr)
If lngPos > 0 Then
strData = Split(Mid$(strReceived, 1, lngPos - 1), "|")
txtUserName.Text = strData(0)
txtPassword.Text = strData(1)
Text1.Text = strData(2)
If lngPos < Len(strReceived) Then
strBuffer = Mid$(strReceived, lngPos + 1)
Else
strReceived = ""
'****boFinished = True
End If
Else
'****boFinished = True
End If
'****Loop Until boFinished = True
End Sub

i added 1 more textbox to test to send multiple strings to split
and i removed the comment with asterisk(*
and it is still working...
meaning the code which i removed are no functions at all?
note: i just want to experiment/simply the code above

can you explain, TNX.