Když nevím vezmu to oklikou :-)
Nejprve načíst celý text do proměnné, do jiné si vložit nový řádek a pak komplet texťák přepsat spojením těchto dvou proměnných ve zvoleném pořadí (Print #1, temp1 & vbNewLine & temp2)
Public Sub pok()
Dim temp1, temp2 As String
Open "D:\text.txt" For Input As #1
temp2 = Input$(LOF(1), 1)
Close #1
temp1 = Left(temp2, InStr(1, temp2, ".", vbTextCompare) - 1) + 1 & ". řádek textu"
Open "D:\text.txt" For Output As #1
Print #1, temp1 & vbNewLine & temp2
Close #1
End Sub
M@citovat
Nejprve načíst celý text do proměnné, do jiné si vložit nový řádek a pak komplet texťák přepsat spojením těchto dvou proměnných ve zvoleném pořadí (Print #1, temp1 & vbNewLine & temp2)
Public Sub pok()
Dim temp1, temp2 As String
Open "D:\text.txt" For Input As #1
temp2 = Input$(LOF(1), 1)
Close #1
temp1 = Left(temp2, InStr(1, temp2, ".", vbTextCompare) - 1) + 1 & ". řádek textu"
Open "D:\text.txt" For Output As #1
Print #1, temp1 & vbNewLine & temp2
Close #1
End Sub
M@citovat