Sistema de Mudar Nome

Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C    
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

'Mudar o Nome'
If LCase(Mid(TextSay, 1, 10)) = "/mudarnome" Then
If Len(TextSay) > 11 Then
If GetPlayerAccess(index) <= 3 Then
Call PlayerMsg(index, "Você nao tem Acesso para usar este comando", 4)
Exit Sub
End If 
n = Mid(TextSay, 11, Len(TextSay) - 10)
If n <> "" Then
Call SetPlayerName(index, n)
Call PlayerMsg(index, "Nome alterado para:" & n, 0)
Call SendPlayerData(index)
Call SendOnlineList
Else
Call PlayerMsg(index, "Por favor, digite um nome.", 15)
End If
End If
Exit Sub
End If