If Schleife wird falsch interpretiert

Set objFSO = CreateObject("Scripting.FileSystemObject")   


if WScript.Arguments.Count = 2 Then
	strOrdner = WScript.Arguments.item(0) 'Der Wert1 wird gesetzt.  
	intTage = WScript.Arguments.item(1) 'Der Wert2 wird gesetzt.  
else
	msgbox ("Syntax: Test.vbs Argument1 Argument2")  
end if


strExtension = ""   
Set objOrdner = objFSO.GetFolder(strOrdner) 
intZahl = 0 
For Each objDatei In objOrdner.Files 
    If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _  
        And DateDiff("d", objDatei.DateCreated, Now) > intTage Then   
        objDatei.Delete 
        intZahl = intZahl + 1 
    End If 
Next 
For Each objUnterordner In objOrdner.SubFolders  

diff = DateDiff("d", objUnterordner.DateCreated, Now)  
diff1 = 2
msgbox diff
	if diff < intTage then
		msgbox "kleiner"  
	else
		msgbox "grosser"  
	end if