Hur gör jag för att få det som står i Text1.text till att skrivas in på rad 14 i en textfil

Dim f As Integer, FileName As String
Dim i As Integer

FileName = App.Path & "\wappa.txt"
f = FreeFile
i = 0


Open FileName For Output As f
Print #f, Text1.Text
Close f

Hej
Så här skulla man kunna tänka sig.

Dim f As Long, FileName As String
Dim i As Long,tmpStr As String,tmpTxt As String

FileName = App.Path & "\wappa.txt"
f = FreeFile
i = 1
Open FileName For Input As #f
Do Until EOF(f)
If i = 14 Then
tmpText = tmpText & vbCrLf & Text1.Text
Else
Line Input #f, tmpStr
tmpTxt = tmpText & tmpStr
i = i + 1
Loop
Close #f
f = FreeFile
Open FileName For Output As #f
Print #f, tmpText
Close #f

Har inte provkört men tycker att detta borde bli rätt
mvh
Sven

Ok, fick tyvärr Loop without Do
skumt när Do util är där.

skrev in End if också så funkade loopen, men filen blev helt tom tyvärr

Hej
Ja miss av mig.Tyvärr blev din fil tömd vid första försöket.
Hoppas du har backup,tycker att du skall ha olika namn på
inputfil och outputfil.

testa igen, efter din ändring skall det funka om det finns nåt i
FileName = App.Path & "\wappa.txt"

ha det
Sven

Nejdå det var ingen fara med backup

Men nu kraschar programmet varje gång jag kör det och den lägger inte till något i textfilen, texten är oförändrard

Det enda jag har på sidan är detta
en textruta text1 och en commandknapp

Private Sub Command1_Click()
Dim f As Long, FileName As String
Dim i As Long, tmpStr As String, tmpTxt As String

FileName = App.Path & "\wappa.txt"
f = FreeFile
i = 1
Open FileName For Input As #f
Do Until EOF(f)
If i = 14 Then
tmpText = tmpText & vbCrLf & Text1.Text
Else
Line Input #f, tmpStr
tmpTxt = tmpText & tmpStr
i = i + 1
End If

Loop
Close #f
f = FreeFile
Open FileName For Output As #f
Print #f, tmpText
Close #f

End Sub

hej igen
Ja det blir så tokigt när man inte testar
Så här skall det vara Nu funkar det

Option Explicit
Private Sub Command1_Click()
Dim f As Long, FileName As String
Dim i As Long, tmpStr As String, tmpTxt As String
FileName = App.Path & "\wappa.txt"
f = FreeFile
i = 1
Open FileName For Input As #f
Do Until EOF(f)
If i = 14 Then tmpTxt = tmpTxt & Text1.Text & vbCrLf
Line Input #f, tmpStr
tmpTxt = tmpTxt & tmpStr & vbCrLf
i = i + 1
Loop
Close #f
f = FreeFile
Open FileName For Output As #f
Print #f, tmpTxt
Close #f
End Sub

Sven