Добрый день уважаемые форумчане!
Пытаюсь сделать финансовые расчеты с обновлением данных в TextBox пользовательской формы через Timer, но почему то цикл For ..Next повторяется несколько раз. Текст процедур привожу ниже:

Sub Raschet()
Dim f As Integer
Dim d1 As Date
Dim d2 As Date


RenesKreditRazMir.Controls("DaysRasch").Value = ViborCard.DataOtcheta.Value

d1 = ViborCard.DataOtcheta.Value

Worksheets("INFO2").Cells(2, 2).Value = d1 'ViborCard.DataOtcheta.Value
 
Days2 = DateAdd("d", f, d1)

     For f = 1 To 10
     
       
      'd2 = Worksheets("INFO2").Cells(f, 2).Text
       
      d3 = Worksheets("INFO2").Cells(f + 2, 1).Value
      Worksheets("INFO2").Activate: Cells(f + 2, 2).Select
      RenesKreditRazMir.Controls("DaysRasch") = Days2
      RenesKreditRazMir.Controls("Days") = d3
      'РАСЧЕТ ПРОЦЕНТОВ ЗА НАЛИЧНЫЕ
               
      RenesKreditRazMir.Controls("SumNal_RK") = SumRf
      PrNal = SumRf * (0.699 / 365) * d3: PrNal = VBA.Format(PrNal, "# ###.0")
      RenesKreditRazMir.Controls("PrNal_RK") = PrNal
   
 Call TIMER2
     
     Next f

End Sub
Sub TIMER2()
Dim start As Single, Pause As Single
start = Timer
Pause = 1
Do While Timer < start + Pause
  DoEvents
 
Loop
End Sub