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

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