3 people have created a party. Party leader has left party when the error is coming. Error Line in Party_ShareExp > expShare = EXP \ Party(partyNum).MemberCount I think this is the error code in Party_PlayerLeave; ``` Public Sub Party_PlayerLeave(ByVal Index As Long) Dim partyNum As Long, i As Long partyNum = TempPlayer(Index).inParty If partyNum > 0 Then ' find out how many members we have Party_CountMembers partyNum ' make sure there's more than 2 people If Party(partyNum).MemberCount > 2 Then ' check if leader If Party(partyNum).Leader = Index Then ' set next person down as leader For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) > 0 And Party(partyNum).Member(i) Index Then Party(partyNum).Leader = Party(partyNum).Member(i) PartyMsg partyNum, GetPlayerName(i) & " is now the party leader.", BrightBlue Exit For End If Next ' leave party PartyMsg partyNum, GetPlayerName(Index) & " partiden ayrıldı.", BrightRed ' remove from array For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) = Index Then Party(partyNum).Member(i) = 0 Exit For End If Next ' recount party Party_CountMembers partyNum ' set update to all SendPartyUpdate partyNum ' send clear to player SendPartyUpdateTo Index Else ' not the leader, just leave PartyMsg partyNum, GetPlayerName(Index) & " partiden ayrıldı.", BrightRed ' remove from array For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) = Index Then Party(partyNum).Member(i) = 0 Exit For End If Next ' recount party Party_CountMembers partyNum ' set update to all SendPartyUpdate partyNum ' send clear to player SendPartyUpdateTo Index End If Else ' find out how many members we have Party_CountMembers partyNum ' only 2 people, disband PartyMsg partyNum, "Parti bozuldu.", BrightRed ' clear out everyone's party Party(partyNum).PTEXP = 0 Party(partyNum).PTlevel = 0 For i = 1 To MAX_PARTY_MEMBERS Index = Party(partyNum).Member(i) ' player exist? If Index > 0 Then ' remove them TempPlayer(Index).inParty = 0 ' send clear to players SendPartyUpdateTo Index End If Next ' clear out the party itself ClearParty partyNum End If End If End Sub ```