Выведите одно число-количество деталей, которое может получиться по заданной технологии

Dim N As Integer                      'масса металлического сплава в кг '
Dim K As Integer                      'масса заготовок в кг '
Dim M As Integer                      'масса деталей в кг '
Dim kolz As Integer                   'количество заготовок '
Dim koldet As Integer                'количество деталей '
Dim ost As integer                     'остаток от заготовок '
Private Sub Command1_Click()
ost = 0
Open "c:\111\Z_2.in" For Input As #1
Open "c:\111\Z_2.out" For Output As #2
Do While Not EOF(1)
  Input #1, N, K, M
  kolz = (ost + N) \ K
  koldet = kolz * (K \ M)
  ost = kolz * (K Mod M)
Write #2, koldet
Loop
Close #1
Close #2
End Sub

Private Sub Command1_Click()
Dim N As Integer                      'масса металлического сплава в кг '
Dim K As Integer                      'масса заготовок в кг '
Dim M As Integer                      'масса деталей в кг '
Dim kolz As Integer                   'количество заготовок '
Dim koldet As Integer                'количество деталей '
Dim ost As Integer                   'остаток от заготовок '
Dim total As Integer
   Open "c:\111\Z_2.in" For Input As #1
     Open "c:\111\Z_2.out" For Output As #2
         Do While Not EOF(1)
               total = 0
               Input #1, N, K, M
                    Do
                       kolz = N \ K
                       koldet = kolz * (K \ M)
                       N = N - koldet * M
                       total = total + koldet
                    Loop Until N < K
               Write #2, total
         Loop
      Close #1
    Close #2
End Sub