Ciao prova così: input al posto di write

Private Sub LoadList(ByVal lst As ListBox, ByVal file As String)
On Error GoTo err
Dim a As String

FileOpen(1, file, OpenMode.Input)

While Not EOF(1)
Input(1, a) 'legge dal file

lst.Items.Add(a)
End While
FileClose()
Exit Sub
err:
MsgBox("Error")
End Sub