Provided your text file doesn't require any manipulation, you could try something like the following:

[VBA]
Dim strTextFile As String
Dim strLine As String


strTextFile = "C:\Test\MyTextFile.txt"

Open strTextFile For Input As #1

Do Until EOF(1)
Input #2, strLine

lstNumbers.AddItem strLine
Loop

[/VBA]