Sub ReadStraightTextFile()
Dim sStr as String
Dim LineofText As String

Open "C:\FILEIO\TEXTFILE.TXT" For Input As #1
sStr = ""
Do While Not EOF(1)
Line Input #1, LineofText
userform1.combobox1.AddItem LineofText
Loop
'Close the file
Close #1
End Sub

--
Regards,
Tom Ogilvy

"Daniel Bonallack" wrote in
message ...
Can I open a notepad txt file that contains only a list of names, and use
that to fill a combobox on a form?

Failing that, can populate the combobox from an Excel file, without having
to open the Excel file?

Thanks in advance
Daniel