Cita:
Iniciado por magTpeak
Me dice "el subindice esta fuera del intervalo" y me colorea esta linea:
Codigo completo:
....
Gracias de antemano!
Fíjate que solo estás cargando en el vector la última línea del archivo.
Prueba así:
Código:
Open openfile.FileName For Input As #1
' cargamos el archivo entero en la variable "config"
config = Input(LOF(1), #1)
Close #1
' eliminamos los caracteres de retorno de carro.
config = Replace(config, vbNewLine, "")
' cargamos los datos en el vector "tabla"
tabla = Split(config, "text=")
' y mostramos los datos en los TextBox
For c = 1 To 12 'Step 1 <- esta instrucción no es necesaria
Textf(c) = tabla(c)
Next
Tienes que verificar que el vector tiene los mismos elementos que el array de Textf.