Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Open FileName For Input As #1

While Not EOF(1)
Line Input #1, LineaTexto
List.AddItem LineaTexto, 0
Wend

Close #1
End Sub

Call AbrirLista(ListBox1,App.Path & "\archivo.txt"

Donde Dice "ListBox1" es donde tienes que poner le nombre del List que quieres que se carge el Archivo txt!

Y donde dice App.Path & "\archivo.txt" es donde pondras donde se encuentra el txt
recuerda que App.Path significa a la locacion de donde se encuentre el Programa es decir que si el Programa se encuentra en el escritorio dentro de una carperta llamada "Programa" App.Path tendria como valor = "C:\Desktop\Programa" por eso se pone primero App.Path para indicar la locacion del EXE y despues el "\archivo.txt", si el archivo.txt estubiece en una sub-carpeta dentro de la Carpteta Programa solo tendrias que poner "\SubCarpeta\archivo.txt".