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]