Hvorfor får jeg denne fejl

Når jeg slår Option Explicit til i følgende script får jeg denne fajl "FindFiles.vbs(16, 5) Microsoft VBScript runtime error: Object required: 'subfolder'" Hvorfor gør jeg det, det virker hvis jeg ikke slår Option Explicit til?

Option Explicit

Dim oFS, SearchPath, SearchExtension, oCurFolder, subfolder

Set oFS = CreateObject("Scripting.FileSystemObject")

SearchPath = "c:\temp" 'sti til søgningens start
SearchExtension = "mp3"

Function FindFile(p_sFromFolder, p_sExt)

  Set oCurFolder = oFS.GetFolder(p_sFromFolder)

  For Each subfolder in oCurFolder.SubFolders
    FindFile p_sFromFolder & "\" & subfolder.Name, p_sExt
    Set f = subfolder.Files
    For each file in f
        If LCase(Right(file.Name, 3)) = p_sExt Then
          MsgBox "Found: " & file.Name
        End If
    Next
    Set f = Nothing
  Next
End Function

FindFile SearchPath, SearchExtension

MsgBox "Done"