de nuevo dando lata... je...
en realidad no tengo idea de por que me truena esta asignacion de un archivo de texto a una grilla... la parte en negritas es la que me truena...

le podrian hechar un vistazo porfa... muchas gracias
con este me dice que error 30009 en valor asignado
Código:
Public Sub Cargar_texto() Dim LTexto As String Dim r, c As Integer Dim separo() As String r = 0 Open frmAcceso.Archivo For Input As #1 Do Until EOF(1) Line Input #1, LTexto separo = Split(LTexto, "|") for c = 0 to 5 frmBitacora.MSFlexGrid1.Col (c) 'dandole igual me da lo mismo .col = c frmBitacora.MSFlexGrid1.Row (r) 'dandole igual me da lo mismo .row = r frmBitacora.MSFlexGrid1.Text = separo(c) next c r = r + 1 Loop Close #1 End Sub
y tambien lo pongo asi y me manda el error 381 subindice fuera de intervalo
Código:
For c = 0 To 5 frmBitacora.MSFlexGrid1.TextMatrix(r, c) = separo(c) Next c