Friend list packet

[______]

I can't seem to extract username/product from the freind when I recive the list packet. Ive try a formula and didnt work, and right now im trying to split the data. It works but only for one product.

Code Select Expand


Dim nothin() As String
Dim x As Integer
nothin = Split(Mid$(data, 6), Chr(0), -1)

     For x = 0 To UBound(nothin)
   
     If Not nothin(x) = "" Then
     
     
     
 
  If Not (Mid(nothin(x), 2, 4)) = "PX3W" or (Mid(nothin(x), 2, 4)) = "PXES" Then ' I tried all the products here and didnt work
 
   Form1.LvMonitor.ListItems.Add , , nothin(x)
 

  Else
 
 
      Form1.LvMonitor.ListItems(Form1.LvMonitor.ListItems.count).SmallIcon = GetIcon(Mid(nothin(x), 2, 4))
     
     End If

     End If

 
     Next x


where (Mid(nothin(x), 2, 4)) = "PX3W" ive tried all the products with PX3W. Geticon is a select case of the products.

[______]

I thought i needed help but i got it to work never mind.