Porque me da este error?

[magTpeak]

Me dice "el subindice esta fuera del intervalo" y me colorea esta linea:

Código:

Textf(c).Text = tabla(c)

Codigo completo:

Código:

If openfile.FileName = "" Then
Else

Dim tabla() As String
Dim config As String
Dim c As Integer

Open openfile.FileName For Input As #1
While Not EOF(1)
Line Input #1, config
Wend
Close #1
tabla = Split(config, "text=")

For c = 1 To 12 Step 1
Textf(c).Text = tabla(4)
Next
os = "1"
End If

Gracias de antemano!

[Avellaneda]

Iniciado por magTpeak

Me dice "el subindice esta fuera del intervalo" y me colorea esta linea:

Código:

Textf(c).Text = tabla(c)

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.