combobox list fra txtfil

Skulle kune gøres på denne måde.

Public Sub HentList()
Open "c:\List.txt" For Input As #1
For I = 1 To EOF(1)
Input #1, LVærdi
combo1.AddItem LVærdi
Next
Close #1

End Sub

Nåå, lige en rettelse.

Private Sub UserForm_Activate()
Open "c:\Lang.txt" For Input As #1
Do
Input #1, LVærdi
Combo1.AddItem LVærdi
Loop Until EOF(1)
Close #1
End Sub

Kabbak>>>Det virker fint og tak for hjælpen.

Ved du hvordan koden skal være hvis samme funktion ligger i en database?

T2C

Private Sub Form_Open(Cancel As Integer)
Open "c:\Lang.txt" For Input As #1
sRowSource = sRowSource
Do
Input #1, lværdi
sRowSource = sRowSource & lværdi & ";"
combo1.RowSource = sRowSource
Loop Until EOF(1)
Close #1

End Sub

rækkekilde typen skal være = Værdiliste