Winsock recieve data help [Resolved]

[camman977]

my code works, but i want to add something to it

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

    ' get the data and display it in the textbox

    Winsock.GetData strData

    txtMain.Text = txtMain.Text & vbCrLf & "Client: " & strData

    txtMain.SelStart = Len(txtMain.Text)

End Sub

i want to make it take the first two words of the string, and have the first go into one variable and the second go into another, then all words after the first two get put in yet another variable. how would i go about doing this?

edit: i also want it to still put all of the string into the text box.