Help with this function plz

[vicho815]

well i wrote this:

Function GetPlayerGuildNum(ByVal index As Long)
Dim I As Long
Dim x As String
I = 1

Do Until I > MAX_GUILDS
If GetplayerGuild(index) = GetVar("\Scripts\Guilds.ini", "GUILDS", "" & I & "") Then
GetPlayerGuildNum = I
I = MAX_GUILDS + 1
Else
I = I + 1
Loop

End Function

But when I try to use my char, it says: Loop without Do…  and there is a do -.-

thanks :)