ActiveX Script - Function Not Found.

I'm trying to create new SSIS package and i'm using one of the control flow Item is "ActiveX Script Task". Following is script.

When i execute the task it errors out that "Function not Found". do i need to create this Function first? I'm new to SQL 2005. so any suggestion will be appreciated.

'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************

Function Main()

Dim srccsvfile
Dim objExcel
Dim objWorkbook, objWorksheet

srccsvfile = "\pc17917c$Documents and Settingskdesai1DesktopCRM Daily Supervisor Report.xls"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.displayalerts = False

Set objWorkbook = objExcel.Workbooks.open(srccsvfile)
Set objWorksheet = objWorkbook.WorkSheets("DailyAllCases")
objWorksheet.Activate
objWorksheet.Delete 'this is removing the worksheet instead of rows
objWorkbook.Save 'you must save the change otherwise in trouble

objExcel.Workbooks.Close
Set objWorkbook = Nothing
objExcel.Quit
Set objExcel = Nothing
Main = DTSTaskExecResult_Success
End Function

Please Advice,
KD