Как вставить пустую строку перед строкой файла с номером K - VB

Формулировка задачи:

Дано целое число K и текстовый файл. Вставить пустую строку перед строкой файла с номером K. Если строки с таким номером нет, то оставить файл без изменений.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim N As Integer
Dim K As Integer
Dim i As Integer
Dim j As Integer
Dim rnds As String 
Dim s As String
FNum1 = FreeFile
N = 1000 * Rnd()
Open App.Path & "\" & FName For Output As FNum1
  For i = 1 To N 
  K = 200 * Rnd() 
  s = " " 
   For j = 1 To K 
   s = s & Chr(200 + Round(30 * Rnd()))
   Next j
Print #FNum1, s
  Next i
  Close FNum1
End Sub
 
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
MyOut.Cls 
K = Val(Text.Text)
MyOut.Print "k="; K
FNum1 = FreeFile()
Open App.Path & "\" & FName For Input As FNum
FNum2 = FreeFile()
Open App.Path & "\" & "fmpfile.text" For Output As FNum2
Open App.Path & "\" & FName For Output As FNum
Do While Not EOF(FNum2)
Input #FNum2, s
Write #FNum1, s
Loop
Close FNum2
Close FNum1
End Sub

Решение задачи: «Как вставить пустую строку перед строкой файла с номером K»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
 
Private Sub Form_Load()
    Dim n As Integer
    Dim K As Integer
    Dim i As Integer
    Dim j As Integer
    Dim rnds As String
    Dim s As String
    Dim FNum1 As Integer
    Dim FName As String
 
    FName = "AbrakadabraSiskimasiski.txt"
 
    FNum1 = FreeFile
    n = 1000 * Rnd()
    Open App.Path & "\" & FName For Output As #FNum1
          For i = 1 To n
                  K = 200 * Rnd()
                   s = " "
                   For j = 1 To K
                         s = s & Chr(200 + Round(30 * Rnd()))
                   Next j
          Print #FNum1, s
          Next i
    Close #FNum1
End Sub
 
Private Sub Command1_Click()
  Dim i As Integer, K As Integer, n As Integer
  Dim s As String
  Dim FNum1 As Integer, FNum2 As Integer, FNum3 As Integer
  Dim FName As String
  Dim ss As String
 
  ss = "Это строка которую нужно вставить"
 
  FName = "AbrakadabraSiskimasiski.txt"
 
  MyOut.Cls
  K = Val(Text.Text)
  MyOut.Print "k="; K
 
  FNum1 = FreeFile()
  Open App.Path & "\" & FName For Input As #FNum1
         FNum2 = FreeFile()
         Open App.Path & "\" & "fmpfile.text" For Output As #FNum2
                       Do While Not EOF(FNum1)
                               Input #FNum1, s
                               Write #FNum2, s
                       Loop
         Close #FNum2
  Close #FNum1
    
  FNum1 = FreeFile()
  Open App.Path & "\" & "fmpfile.text" For Input As #FNum1
         FNum2 = FreeFile()
         Open App.Path & "\" & FName For Output As #FNum2
                       Do While Not EOF(FNum1)
                               n = n + 1
                               Input #FNum1, s
                               If n = K Then
                                   Write #FNum2, ss
                               End If
                               Write #FNum2, s
                       Loop
          Close #FNum2
   Close #FNum1
     
End Sub