Dim erosFile As New FileStream(openErosFile.FileName, FileMode.Open) Dim erosReader As New StreamReader(erosFile, FileMode.Open) Dim erosLine As String = erosReader.ReadLine() While Not ...