Public Function CountLinesInFile(ByVal strFilePath As String) As Integer
       Dim lc As Integer = 0
       If Not File.Exists(strFilePath) Then
           MsgBox("File: " & strFilePath & _
            " hasn't been downloaded yet. Preprocessing is being aborted.",  _
           MsgBoxStyle.OKOnly, "File Does Not Exist")
       End If
       Try
           Dim sr As StreamReader = New StreamReader(strFilePath)
           While Not IsNothing(sr.ReadLine)
               lc += 1
           End While
           sr.Close()
       Catch
           MsgBox("File: An error occurred while reading " & strFilePath & _
           ". Preprocessing is being aborted.", MsgBoxStyle.OKOnly, "File Read Error")
           lc = -1
       End Try
       Return lc
   End Function