Do while loop 문에서 제가 설정한 반복값 횟수 이상으로 계산이 됩니다

제가 작성한 코드는 아래에 있습니다.

함수 형태로 VBA를 짜고 있는데요, 입력된 파라미터는 각각 101.0955 / 100.00 / 3.125% / 4 / 88 / 183 입니다.

반복횟수를 초기값 k=0으로 지정한 이후에 종료 조건을 k<5로 지정했습니다.

그러면 총 5회 루프가 돌고 끝나야 하는데, 처음 입력한 파라미터 값으로 5회 계산이 반복된 이후에 파라미터가 변화되어서 10번 돌고 다시 본래의 파라미터로 돌아와서 5회가 돌고 끝이납니다.

어떻게 수정해야할까요?

부탁드리겠습니다

--------------------------------------------------------------------------------------------------------------------------------------------------------

Function CalculateYTM(P As Double, F As Double, C As Double, N As Double, t As Double, days As Double) As Double

Dim tolerance As Double
Dim guess As Double
Dim price As Double
Dim i As Integer
Dim k As Long

' 초기값과 허용 오차 설정
tolerance = 0.0000001
guess = 0.03 ' YTM 초기 추정값
k = 0

Do While k < 5
k = k + 1

' 6개월 단위 복리로 할인된 가격 계산(1) : 쿠폰들의 PV
price = 0
For i = 1 To N
price = price + (C * F / 2) / (1 + guess / 2) ^ (i - 1)

'MsgBox ("i입니다" & i & "N입니다" & N)

Next i

' 6개월 단위 복리로 할인된 가격 계산(1) : 원금과 쿠폰들의 PV
price = price + (F) / (1 + guess / 2) ^ (N - 1)

' 단리로 할인
price = price / (1 + guess * t / days)

' 현재 가격과 계산된 가격의 차이
price = price - P

' YTM 추정값 수정
If Abs(price) < tolerance Then
Exit Do
Else
guess = guess + Sgn(price) * 0.000000001

End If
'MsgBox ("루프를 돌고있습니다.")

Loop
'MsgBox ("루프가 끝났습니다.")

CalculateYTM = guess
End Function

'P는 현재 시장 가격, F는 액면가, C는 연간 쿠폰 수익률, N은 잔존 쿠폰지급횟수
't는 현재부터 차기 이자 지급일까지의 기간 (년 단위), days는 직전쿠폰일부터 차기 쿠폰일까지의 기간