Cita:
Iniciado por anyi_2517 
Necesito pasar un archivo de texto a un combo box
pero solamente la primera palabra de cada cadena
00001;Omar;Madrigal;
00002;Edgar,Fuentes
osea que quede en mi combo
00001
00002
alguien sabe como?
En el evento Load del form o en un CommandButton, pon este código:
Código:
Dim sLinea As String, sArchivo As String, a() As String
sArchivo = App.Path & "\Archivo.txt"
Open sArchivo For Input As #1
Combo1.Clear
Do While Not EOF(1)
Line Input #1, sLinea
a = Split(sLinea, ";")
Combo1.AddItem a(0)
Loop
Close #1
sArchivo es la variable que contiene la ruta completa y el nombre del txt (en este caso, suponemos que el archivo se encuentra en el mismo directorio que la aplicación).
