Run -time 9 qndo entra em selecionar char

a linha q esta dando o erro é essa:

Código:

        Msg = Parse(n + 1)

vo mostrar oq tem d linha em volta:

Código:

' :::::::::::::::::::::::::::
    ' :: 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

Você não leio as Legras e Necessario 30 mensagens
[Você precisa estar registrado e conectado para ver este link.]

quando completar 30 mesagens eu desbloqueio
e respondo sua pergunta...

Close aki ja arrumei.