[VB2010] Module, Lixtbox loops

[Supicioso]

I have a problem with the below. It keeps looping, I know why, but what I don't know is why it's not inserting the info into the listbox. It doesn't throw any errors either. Everything is set from Private to Public, no effect. I had this problem before but I can't remember how I fixed it for the life of me. Even then, it was in C#.

Public Function LoadItemLibrary(ByVal path As String)
        Try
            Dim ItemReader As StreamReader = New StreamReader(path)
            AceTool.ItemList.Items.Clear()
            Do
     Loops here   --->  AceTool.ItemList.Items.Add(ItemReader.ReadLine)
     Loops here   --->  AceTool.ListBox1.Items.Add(ItemReader.ReadLine)
            Loop Until ItemReader.Peek = -1
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            If AceTool.ItemList.Items.Count > 0 Then
                AceTool.ItemList.Enabled = True
            Else
                AceTool.ItemList.Items.Add("Error reading library")
            End If
        End Try
    End Function

 

[Dread(nought)]

Apply this methodology to check for proper output of the StreamReader, see

You must be registered to see links

for details. Here is an excerpt from MSDN.

Imports System
Imports System.IO

Class Test
    Public Shared Sub Main()
        Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader("TestFile.txt")
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                Console.WriteLine(Line)
            Loop Until line Is Nothing
            sr.Close()
        Catch E As Exception
            ' Let the user know what went wrong.
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(E.Message)
        End Try
    End Sub
End Class

 

[XZeenon]

Separate the strings, I'm not sure how to do it in VB but in C# you do Foreach(string lines in sr.ReadLine())
{
//Do what ever here.
}

 

[Supicioso]

It didn't work. It's something simple. But I just can't remember what :/

I had it in the original form class, but I moved it to a different module class, that's when it stopped working.