Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/12/2008, 06:45
magTpeak
 
Fecha de Ingreso: septiembre-2007
Mensajes: 189
Antigüedad: 16 años, 8 meses
Puntos: 1
Porque me da este error?

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!