Split a string

[Phrozeman]

Ello peoples,

Still working on a small IRC Example, and got a little stuck.
When i receive a string, i need to split it and send only 1 word back to an channel... But how do i have to split this String:

[email protected] JOIN :#testchannel

The only thing i need it the nickname before the !

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Dim Params As String
 
If InStr(1, Data, "JOIN") Then
Params = Replace(Split(UCase(Data)(0), "!"), vbCrLf, "")
 
    Winsock2.SendData "PRIVMSG " & "#testchannel" & " :Hello " & Params & vbCrLf
     Exit Sub
End If

[BuggyProgrammer]

dim a() as string
a = split(data,"!")
msgbox a(0)

[Phrozeman]

Works fantastic
Thanks pall