Getting An ASP .Net VB Script To Work In SSIS As Script A Task

I have designed a VB Script in ASP .NET (as that is what I'm used to using) that will look at a specific file at a specific path and send the Last Modified information to a database. Now I would like to move this script to the Script a Task function in SSIS so that I can check before running the rest of the package that the file I want to pull the data from has actually been updated. The ASP .NET code (which does work) is as follows (connection string removed):

<%@ Import Namespace="System.Data.OleDb" %>
<%
Dim objCONN As New OleDbConnection("REMOVED")
Dim objSQL As New OleDbCommand()
Dim strInsert As String
Dim objFilesSystem As Object
Dim objFile As Object
Dim strDate As String
objFilesSystem = CreateObject("Scripting.FileSystemObject")
objFile = objFilesSystem.GetFile("C:Flat_File_Data/Force_Receipt_To_Clear.xls")
strDate = objFile.DateLastModified
strInsert = "1, cast( '" & strDate & "' as datetime ) ) "
objCONN.Open()
objSQL.Connection = objCONN
objSQL.CommandText = "INSERT INTO CTS.dbo.IS_THERE_CHECK VALUES( getdate(), " & strInsert
objSQL.ExecuteScalar()
objCONN.Close()
%>

What follows is as close as I could get in SSIS (I had to set Option Strict to Off). It produces no error, at least not as far as I can tell, nor does it write to the database when run.

Public Class ScriptMain
' The execution engine calls this method when the task executes.
' To access the object model, use the Dts object. Connections, variables, events,
' and logging features are available as static members of the Dts class.
' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
'
' To open Code and Text Editor Help, press F1.
' To open Object Browser, press Ctrl+Alt+J.
Public Sub Main()
Dim objCONN As New OleDb.OleDbConnection("REMOVED")
Dim objSQL As New OleDb.OleDbCommand()
Dim strInsert As String
Dim objFilesSystem As Object
Dim objFile As Object
Dim strDate As String
objFilesSystem = CreateObject("Scripting.FileSystemObject")
objFile = objFilesSystem.GetFile("C:Flat_File_Data/Force_Receipt_To_Clear.xls")
strDate = objFile.DateLastModified
strInsert = "1, cast( '" & strDate & "' as datetime ) ) "
objCONN.Open()
objSQL.Connection = objCONN
objSQL.CommandText = "INSERT INTO CTS.dbo.IS_THERE_CHECK VALUES( getdate(), " & strInsert
objSQL.ExecuteScalar()
objCONN.Close()
Dts.TaskResult = Dts.Results.Success
End Sub