VBScript, Error Handler funktioniert nicht!

Option Explicit
On Error Resume Next

Dim objFSO

'File System Object  
Set objFSO = CreateObject("Scripting.FileSystemObject")  


Call Start(objFSO)

Sub Start(ByRef objFSO)
	'macht irgendetwas  
	'macht irgendetwas  
	'macht irgendetwas  

	Call Create(objFSO)
	If Err.Number <> 0 Then ErrorHandler(objFSO)
End Sub

Sub Create(ByRef objFSO)
	'macht irgendetwas  
	'macht irgendetwas  
	'macht irgendetwas  
	If Err.Number <> 0 Then ErrorHandler(objFSO)
End Sub


Sub ErrorHandler(objFSO)
	Dim objErrorLogFile, strErrorRootPath 
	strErrorRootPath = "D:\Error"  
	Set objErrorLogFile = objFSO.OpenTextFile(strErrorRootPath & "\" & "Error.log", 8, True)  
	objErrorLogFile.WriteLine("Error Number: " & Err.Number & vbCrLf & "Error Description: " & Err.Description)  
	objErrorLogFile.Close
	Err.Clear
End Sub