Problem in MS4

[delden]

Re-downloaded and a new error has came up.
Heres the code.

Public Sub CheckSprites()
Dim i As Long

i = 1

'While FileExist(GFX_PATH & "sprites\" & i & GFX_EXT)
' MAX_SPRITE_TEXTURES = MAX_SPRITE_TEXTURES + 1
' i = i + 1
Wend

Now to break it down to the error

Wend

Error says "Compile error: Wend without While"
I always get so many errors >__>