of1 = Openfiledialog's name
lstaccounts = list box you wish to have items added to

Code:
        of1.InitialDirectory = "C:/"
        of1.FileName = "accounts.txt"
        of1.Title = "Open Accounts List..."
        of1.Filter = ("text files (*.txt) | *.txt")
        of1.ShowDialog()

        Dim r As IO.StreamReader
        r = New IO.StreamReader(of1.FileName)
        While (r.Peek() > -1)
            lstaccounts.Items.Add(r.ReadLine)
        End While
        r.Close()
Put this code in the open button...