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]




					
				
                    
            
            
                
            
        
					
					
					
						
  Reply With Quote