RTE '9' Subscript out of range

[wisefire]

Well ive added the Visual Inv. tutorial by GSD, viewtopic.php?f=75&t=342, and now when I attempt to open the inventory, I get RTE '9' Subscript out of range. The bold red below is the line directed at;

Function GetPlayerInvItemNum(ByVal Index As Long, ByVal InvSlot As Long) As Long
GetPlayerInvItemNum = Player(Index).Inv(InvSlot).Num
End Function

When I hover the mouse over it I get;


Any Ideas?