Public Function ReadFile(ByVal sFileName As String, ByRef sHeader As _
      String, ByRef sLastLine As String) As Boolean
        Dim oFS As New IO.FileStream(sFileName, IO.FileMode.Open, _
        IO.FileAccess.Read, IO.FileShare.Read, 4095, _
        IO.FileOptions.Asynchronous)
        Dim oSR As New IO.StreamReader(oFS)
        Dim sWholeFile() As String
 
        sHeader = oSR.ReadLine
 
        sWholeFile = oSR.ReadToEnd.Split(vbCrLf)
 
        sLastLine = sWholeFile(sWholeFile.Length - 1)
 
        Return True
 
    End Function