Stuck on sending data

[Matt]

Maybe if you break it up?

Code:

For i = 1 To MAX_CHARS
        packet = packet & Trim(Player(index).Char(i).Name) & SEP_CHAR
        packet = packet & Trim(Class(Player(index).Char(i).Class).Name) & SEP_CHAR
        packet = packet & Player(index).Char(i).Level & SEP_CHAR
    Next i

Might not help, prolly won't, but hey, it's worth a try. ^_^