Unprotect Excel workbook usign a dts package

I have been asked to create a dts package and need a little advice to get me started please.

A User uploads a workbook via an asp page, this asp page will then call a dts package to do the following;

unprotect the workbook (I know the password in advance)

read certain cells and compare them to values stored in a sql server table

move the file location or delete as a result of the above check.


Ive tried an activeX script in the dts to unprotect the workbook

VB Code:

Function Main()
 
Dim ExFile
ExFile= (path)
    
Dim xl 
xl = CreateObject("Excel.Application")
    
Dim myWorkbooks 
myWorkbooks = xl.Workbooks
xl.Visible = False 
myWorkbooks.Open(ExFile)  
myWorkboks.ACTIVEWorkbook.Unprotect(password)
 
End Function

but am getting error object required 'xl' at line 13 (myWorkbooks = xl.Workbooks)

any help would be apprectiated