Пишешь процедурку загрузки типа такой:
Sub LoadFromFileInListBox(loadPath As String, adListBox As ListBox)
adListBox.Clear
Open loadPath For Input As #1
Do While Not EOF(1)
Line Input #1, temp$
adListBox.AddItem temp$
Loop
Close #1
End Sub
Вставляешь в процедуру загрузки формы:
Private Sub Form_Load()
Call LoadFromFileInListBox("......", list1)
End Sub

P.S.
To NNN
Чуток неверно - так низя использовать Me.Load - надо Load Me