Populate combobox with data in a text file

[keviny22]

I have a text file with a list of names that I want to populate into a combo box. Below is the code I am trying. It works for a text box, but I get errors when I try it with a combo box. Am I taking the correct approach?

Private Sub Form_Load() 

'Outline:       - Asks the user for a file.
    '              - Reads all the data into Text1.
    
    Dim FilePath As String
    Dim Data As String
    
    FilePath = InputBox("Enter the path for a text file", "The Two R's", _
    "C:\users.TXT")
    'Asks the user for some input via an input box.
    
    Open FilePath For Input As #1
    'Opens the file given by the user.
    
    Do Until EOF(1)
    'Does this loop until End Of File(EOF) for file number 1.
        Line Input #1, Data
        'Read one line and puts it into the varible Data.
        Combo11.Text = Combo11.Text & vbCrLf & Data
        'Adds the read line into Text1.
        MsgBox EOF(1)
    Loop
    
    Close #1
    'Closes this file.

[damaskus]

you need to use
combo1.additem not combo1.text to add to a combo box.

[keviny22]

using additem requires you to specify what is in your combobox in the code. I want to specify a path in which to import a list.

I don't know of a way to use additem to do this.

[rsitogp]

Why, you can do the following with combobox

Open "anyfile.txt" for input as #1
Do Until EOF(1)
 Input #1, data2add
 Combo1.Additem data2add
Loop
Close #1

Works GREAT!

[keviny22]

Thanks, you are the best!!