VB Code:
Private Sub Playerinfo_DataArrival(ByVal bytesTotal As Long)
Dim FileNo As Integer
Dim TotalPlayers As Integer
Dim i, c As Integer
Dim temp1, temp2, temp3, temp4 As Integer
i = 0
c = 7
FileNo = FreeFile
lst1.Clear
PlayerInfo.GetData strData$
TotalPlayers = Asc(Mid(strData, 6, 1))
MsgBox "Amount of players: " & TotalPlayers
Do While i < TotalPlayers
i = i + 1
Player(i).Name = ""
Player(i).ID = Asc(Mid(strData, c, 1))
c = c + 1
While (Asc(Mid(strData, c, 1)) <> 0)
Player(i).Name = Player(i).Name + (Mid(strData, c, 1))
c = c + 1
Wend
c = c + 1
Player(i).Frags = Asc(Mid(strData, c, 4))
c = c + 1
'insert time code here
'Then use this:
Dim abcd As Single
'Pretend the float is stored 16 bytes into the data...
CopyMemory abcd, Mid(strData, c, 7), 4
MsgBox abcd
Player(i).Time = abcd
lst1.AddItem (Player(i).ID & " " & Player(i).Name & " " & Player(i).Frags & " " & Player(i).Time)
c = c + 7
Loop
End Sub