Как правильно размножить файл - VB

Private Sub Form_Load()
 Dim f, g
 Dim k As Integer
 Dim S As String
 f = FreeFile
Call MakeDir("C:\123")
 SetAttr "C:/123/", vbNormal
Open "C:/123/input.txt" For Append As #1
Close #1
Open "C:/123/input.txt" For Input As #1
While Not EOF(1)
Line Input #1, S
Debug.Print S
Wend
Close #1
If S <> "" Then k = S
Do
z = z + 1
Open "C:/123/u.t" For Append As #1
Print #1, "bla-bla-bla-bla"
Close #1
Loop While z < 10000
Do
L = L + 1
k = k + 1
path = "C:/123/" & k & ".t"
FileCopy "C:/123/u.t", path
Loop While L < 25
S = k
Open "C:/123/input.txt" For Output As #f
Print #f, S
Close #f
SetAttr "C:/123/", vbHidden
End
End Sub
 
 
Sub MakeDir(dirname As String)
 Dim i As Long, path As String
 Do
 i = InStr(i + 1, dirname & "\", "\")
 path = Left$(dirname, i - 1)
 If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
 MkDir path
 End If
 Loop Until i >= Len(dirname)
 End Sub