Subscript out of range in Sub ClearPlayer, Server Side

[Rezeyu]

Code:

Sub ClearPlayer(ByVal Index As Long)
Dim i As Long
Dim n As Long

    Player(Index).Login = vbNullString

The player.login gives me a subscript out of range, when initilizing the player array. It tells me i = 1 and index = 1.

Not sure what's going on.