Cita:
Iniciado por alexiscespedes 
Ok gracias avellaneda me funciona perfectamente lo de las fechas. Se me presenta un problema a la hora que cargo el archivo al combobox ya que me carga toda la linea completa y yo necesito que me cargue unicamente los vectores que deseo ver. Aqui les envio el codigo que tengo,
Public Function LIST() As String
Dim sLinea As String, sArchivo As String
Open ruta & "HISTORICO.txt" For Input As #1
LISTADO.Text = ""
Do While Not EOF(1)
Line Input #1, sLinea
LISTADO.AddItem CODIGO
Loop
Close #1
End Function
Yo necesito poder mostrar unicamente los campos que son necesarios como lo hago en un formulario de consulta, pero aqui no le puedo indicar que me ponga el vector(x) en una variable determinada. Gracias por su ayuda
seria algo así como tener un listado de palabras en alguna parte, sería algo así, en este caso arme un array de palabra en lista, pero vos tenes tu propio listado.
Código:
Private Sub Command1_Click()
Dim lista(1) As String
lista(0) = "uno"
lista(1) = "dos"
For Each Item In lista
'uno será el código leido del archivo de texto
If Item = "uno" Then
MsgBox Item
'AddItem
End If
Next Item
End Sub
nos vemos..