Stuck on sending data

[Joost]

Code:

Sub SendChars(ByVal index As Long)
Dim Packet As String
Dim i As Long
    
    Packet = "allchars" & SEP_CHAR
    For i = 1 To MAX_CHARS
        Packet = Packet & Trim(Player(index).Char(i).Name) & SEP_CHAR & Trim(Class(Player(index).Char(i).Class).Name) & SEP_CHAR & Player(index).Char(i).Level & SEP_CHAR
    Next i
    Packet = Packet & END_CHAR
    
    Call SendDataTo(index, Packet)
End Sub

This sub is being called (So that's not the problem) but, it doesn't reaches the last line, the Call SendDataTo(index, Packet). I really can't see any mistakes in it, and I haven't even edited it. So what's the problem?