Problem importing delimiter text file -

Private Function Analyze(ByVal strFileName As String) As ArrayList

Dim strText As FileIO.TextFieldParser

strText.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited

Dim fi As FileInfo

Dim sr As StreamReader = sr

Dim intRow As Integer

Dim al As New ArrayList()

Dim tl As TextLine

fi = New FileInfo(strFileName)

sr = fi.OpenText()

strText.Delimiters = New String() {";"}



Do

strText.Delimiters = sr.ReadLine()

If Not (strText Is Nothing) Then

tl = New TextLine(strText.ToString, intRow)

al.Add(tl)

End If

intRow += 1

Loop Until (strText Is Nothing)

sr.Close()

If Not (sr Is Nothing) Then

sr.Close()

End If

Return al

End Function

End Class