The following is better, as it will properly handle an empty
input file:

Dim FName As String
Dim FNum As String
Dim S As String

FName = "H:\test.txt" '<<< CHANGE FILE NAME
FNum = FreeFile
Open FName For Input As #FNum
Do Until EOF(FNum)
Input #FNum, S
Me.ComboBox1.AddItem S
Loop
Close #FNum


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Chip Pearson" wrote in message
...
Try some code like the following:

Dim FName As String
Dim FNum As String
Dim S As String

FName = "H:\test.txt" '<<<< CHANGE FILE NAME
FNum = FreeFile
Open FName For Input As #FNum
Do
Input #FNum, S
Userform1.ComboBox1.AddItem S
Loop Until EOF(FNum)
Close #FNum


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"mhferreira " wrote
in message ...
Please, i need import the data txt file to a combobox list
itens

How i do it?


---
Message posted from http://www.ExcelForum.com/