Use Script To Read Date From Specific Line Of Flat File

I have a few flat files that I need to read a date from. The date will always be on Line No 4 and will be in YYYYMMDD string format in chars 2-9 of line 4



Here's what I have so far to convert the string YYYYMMDD into date format... I don't know enough VB to be able to just hit Line 4... I am sure it's simple so could someone pelase put me out of my googling misery






Code Snippet

Public Sub Main()

'

Dim oStream As New IO.StreamReader("Z:TreasuryFilesdeals.dat")

Dim strReadLine As String, filedate As Date



'??? how to just read a date from the fourth line of the file ??

'strReadLine = oStream.ReadLine()

strReadLine = "A20050331" 'sample string variable

'convert the fourth line of the flat file to a date format

filedate = New DateTime( _

CInt(Strings.Mid(strReadLine, 2, 4)), _

CInt(Strings.Mid(strReadLine, 6, 2)), _

CInt(Strings.Mid(strReadLine, 8, 2)))

'write filedate to package variable

Dts.Variables.Item("User::Load_Date_Loan").Value = filedate

System.Windows.Forms.MessageBox.Show(CStr(Dts.Variables.Item("User::Load_Date_Loan").Value))

'

Dts.TaskResult = Dts.Results.Success

End Sub