Dim myStreamReader As New IO.StringReader(filePath)
Dim line As String
Dim currentLineNumber As Integer = 0
Do
line = myStreamReader.ReadLine()
currentLineNumber += 1
Loop Until currentLineNumber = desiredLineNumber
Dim myStreamReader As New IO.StringReader(filePath)
Dim fileContents As String = myStreamReader.ReadToEnd()
Dim lines As String() = System.Text.RegularExpressions.Regex.Split(fileContents, Environment.NewLine)
Dim line As String = lines(desiredLineNumber)