Bueno, puedes abrir el archivo para acceso secuencial y cargar cada linea en el combo:
Código:
Dim sLinea As String, sArchivo As String
sArchivo = App.Path & "\secuencia.txt"
Open sArchivo For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, sLinea
Combo1.AddItem sLinea
Loop
Close #1
Nota: En este caso suponemos que el archivo se encuentra en el mismo directorio de la aplicación.
