Run -time 9 qndo entra em selecionar char

        Msg = Parse(n + 1)

' :::::::::::::::::::::::::::
    ' :: All characters packet ::
    ' :::::::::::::::::::::::::::
    If Parse(0) = "allchars" Then
        n = 1
       
        frmSendGetData.Hide
        frmChars.Show , frmMainMenu
       
        frmChars.lstChars.Clear
       
        For I = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
           
            If Trim(Name) = vbNullString Then
                frmChars.lstChars.AddItem "Lugar Livre"
            Else
                frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
            End If
           
            n = n + 3
        Next I