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]
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
[/code]

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.