Poprobyute tak: I sozdala txt file i zapisala v nego dannie ,potom otkrola ego i i nachala chtitivat stroki,strochka posle kotoroy nado vstavit 2(intseek = 3) i perepisala v drygoy file txt

Dim nfile As Integer
Dim sTemp As String
Dim i As Integer
Dim intseek As Integer
nfile = FreeFile

intseek = 3
Open "C:\MyT.txt" For Input As #nfile
i = 1
If Not EOF(nfile) Then

Open "C:\TT3.txt" For Output As #2

While Not EOF(nfile)

If i <> intseek Then
Line Input #nfile, sTemp

Print #2, sTemp

Else
Print #2, "Kyky3"

End If
i = i + 1
Wend
End If
Close #nfile
Close #2