Code error

[lalablah]

Code:

Private Sub Command1_Click()
frmadminpannel.Show
End Sub

Private Sub Form_Load()
    frmMirage.Width = 10080
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
    Command1.Enabled = True
    End If
End Sub

this is what I changed

the error i got was "RTE 9 subscript out of range" and the following function highlighted

Code:

Function GetPlayerAccess(ByVal Index As Long) As Long
    GetPlayerAccess = Player(Index).Access
End Function

any ideas?