GRACIAS POR LA RESPUESTAS, PERO SIGO TENIENDO EL OTRO PROBLEMA (ESTO
DE SER NOVATO)


MI IDEA ES LEER CADA LINEA Y DESPUES ESCRIBIRLA EN OTRO ARCHIVO CON
OTRO FORMATO.

TENGO EL SIGUIENTE CODIGO:

Private Sub Command2_Click()
With cmd2
.InitDir = App.Path
.Filter = "Archivo de Rasante CLIP(*.asc)|*.asc"
.DefaultExt = "asc"
.FileName = ""
.DialogTitle = "Abrir archivo de Rasantes CLIP"
.Action = 1
fileRas = .FileName
End With
If fileRas = "" Then Exit Sub
nfileRas = FreeFile + 1

lineArchRas = 1

Open fileRas For Input As #nfileRas
While Not EOF(nfileRas)
lineArchRas = lineArchRas + 1
Line Input #nfileRas, registroRas
If lineArchRas = 3 Then

ReDim kmRas(3 To lineArchRas)
ReDim cotaRas(3 To lineArchRas)
ReDim dosT(3 To lineArchRas)

For i = 3 To lineArchRas
Input #nfileRas, kmRas(i), cotaRas(i), dosT(i)
Next i
End If
Wend

Close #nfileRas

If fileRas <> "" Then
Check2.Value = 1
End If

End Sub

Private Sub Command7_click()
fileRasVer = fileRas
nfileRasVer = FreeFile + 1
Open cmd2.FileName & ".ver" For Output As nfileRasVer
Write #nfileRasVer, "", lineArchRas - 2, "S"

For i = 3 To lineArchRas
Write #nfileRasVer, "V-" & i - 2, kmRas(i), cotaRas(i), 2 *
dosT(i)
Next

Close #nfileRasVer

If fileRasVer <> "" Then
Check2.Value = 0
End If

MsgBox "Archivo Generado con Exito", vbOKOnly, "Generación
Archivo de Rasante"

End Sub



AL QUERER GUARDAR EL ARCHIVO ME DICE QUE ESTA FUERA DEL INTERVALO O
INDICE, S SUPONE QUE EL ARCHIVO INICIAL TIENE 12 LINEAS Y EL FINAL
11, Y QUE A PARTIR DE LA LINEA 3 LEOM PARA PODER ESCRIBIRLOS EN LA
LINEA 2 DEL NUEVO ARCHIVO.

PERO NO HE PODIDO HACERLO.

UNA AYUDA PLEASEEEEEE.