Me dice "el subindice esta fuera del intervalo" y me colorea esta linea:
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!