Записать в файл f последовательного доступа N натуральных чисел - VB

Sub makeFile(Fname As String, N As Integer, Optional k As Integer = 0)
Static fo As Integer
   If k = 0 Then
      fo = FreeFile
      Open Fname For Output As #fo
      Randomize
   End If
   If N > 0 Then
      Print #fo, CInt(20 * Rnd)
      makeFile Fname, N - 1, 1
   Else
      Close fo
   End If
End Sub
 
Sub filter(Finp As String, Fout As String, k As Integer, Optional p As Integer = 0)
Static fi As Integer
Static fo As Integer
    If p = 0 Then
       fi = FreeFile
       Open Finp For Input As #fi
       fo = FreeFile
       Open Fout For Output As #fo
    End If
    If Not EOF(fi) Then
       Line Input #fi, Stri$
       If Val(Stri$) Mod k <> 0 Then 
          Print #fo, Stri$
          Debug.print Stri$
       end if
       filter Finp, Fout, k, 1
    Else
       Close fi
       Close fo
    End If
End Sub
 
Sub Test()
  makeFile "111.txt", 50
  filter "111.txt", "222.txt", 3
End Sub