Bug?: Compilation Error

Compiling code.                         Error
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

File.MakeDir(File.DirDefaultExternal,"/images")

Sub Activity_Create(FirstTime As Boolean)
   Select 1
      Case 1 ' Compiles OK with this commented out
   End Select
End Sub

   Select RequetesSQL.query   
   Case 1,2,3,4,5,6,7,8,10
      PiedDePage(RequetesSQL.ChoixRequeteSQL)
      AfficheResultat(RequetesSQL.Cursor1, True)
   Case 9
      PiedDePage(RequetesSQL.ChoixRequeteSQL)
      AfficheResultat(RequetesSQL.Cursor1,True)
      activity.Title = RequetesSQL.nbAppellation
   Case 11
                .........

        [COLOR="Red"][B]Case Else[/B][/COLOR]
[COLOR="red"]                if empty line ==> error compil[/COLOR]
[COLOR="red"]with (but it doesn't matter)[/COLOR]   Msgbox("OK compil","") [COLOR="red"]==> compil OK[/COLOR]
        End Select

'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
 
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Try
        File.MakeDir(File.DirDefaultExternal,"/images") '<- Error Here
    Catch
 
    End Try
End Sub
 
Sub Activity_Resume
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
End Sub