Out of stack space

[goku1993]

here's the problem,
i got an out of stack space error on
```
If IsConnected(index) Then
```it's in isplaying sub by the way(just saying)

and i know that the problem is from this sub
```
Public Sub GuildMsg(ByVal guildNum As Long, ByVal Msg As String, ByVal color As Byte)
Dim i As Long, Player As Long
    For i = 1 To MAX_GUILD_MEMBERS
        If Not Guild(guildNum).Member(i) = vbNullString Then
        Player = FindPlayer(Guild(guildNum).Member(i))
            If IsConnected(Player) And IsPlaying(Player) Then
                GuildMsg Player, Msg, color
            End If
        End If
    Next
End Sub
```
i searched a bit and i found out that out of stack means that i m using too much of the resources and stuff and that i should optimize it but i can't really find something to optimize…

thank you for your help