Load Save Listbox Items?

I've got a problem, I'm making a program that gives you the choice to add items to a listbox, these items are text. When the form loads, i need it to load text from a file into a listbox. For every line I need it to add that text to the listbox. My problem is when it loads, there's an extra line, but that's only after I close the form and open it again. The reason it happens when the form unloads is because the listbox items are saved on form unload. Now, I believe the problem is my code to save the items:

Dim Env As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
For Each item In Form1.TP1.Items
Dim Save As New SaveFileDialog()

[code].....