Something

Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim strInText As String
    Dim strParsedText() As String
    
    sckServer(0).GetData strInText                  ' What is coming in?
                                                    
    strParsedText() = Split(strInText, "!0!")       ' Split incoming string
        
    lstOnlineUsers.AddItem strParsedText(0)         ' Add Nickname to listbox
    
    frmPrivmsg.Show                                 ' Open message window
    frmPrivmsg.txtPrivmsg.Text = _
    frmPrivmsg.txtPrivmsg.Text & strParsedText(0) & vbCrLf             ' Display incoming message and do a carriage return and line feed.
End Sub