Проценты прописью, некорректно возвращает целые

Function MProzProp$(chislo#) 'проценты числом прописью
    Dim rub$, kop$, ed, des, sot, nadc, razr, i&, m$
    Dim mm
    If chislo >= 1E+15 Or chislo < 0 Then Exit Function
    sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
    des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
    nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
    ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ", "", "одна ", "две ")
    razr = Array("триллион ", "триллиона ", "триллионов ", "миллиард ", "миллиарда ", "миллиардов ", "миллион ", "миллиона ", "миллионов ", "тысяча ", "тысячи ", "тысяч ", "целая ", "целых ", "целых ")
    rub = Left(Format(chislo, "000000000000000.00"), 15)
    kop = Right(Format(chislo, "0.00"), 2)
    m = ""
    If CDbl(rub) = 0 Then m = "ноль "
    For i = 1 To Len(rub) Step 3
        If Mid(rub, i, 3) <> "000" Or i = Len(rub) - 2 Then
            m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2, 1))), _
                    des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _
                    IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = "1", razr(i - 1), razr(i)))
        End If
    Next i
       If Mid(kop, i, 2) <> "00" Then
            mm = IIf(Mid(kop, 1, 1) = "1", nadc(CInt(Mid(kop, 1, 1))), des(CInt(Mid(kop, 1, 1))) & ed(CInt(Mid(kop, 2, 1))))
       End If
    MProzProp = UCase(Left(m, 1)) & Mid(m, 2) & mm & " сот" & IIf(kop \ 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ых", IIf(kop Mod 10 = 1, "ая", "ых")) & " процента"
End Function

Function MProcProp(chislo As Double) As String
    'Проценты прописью, Автор MCH (Михаил Ч.), май 2019
    Dim celoe As Double, drob As Double, razr As Long, m As String, celoe2 As Long, LenDrob As Long
    If chislo >= 1E+15 Or chislo < 0 Then Exit Function
    celoe = CDbl(Left(Format(chislo, "000000000000000.000"), 15))
    celoe2 = CLng(Right(Format(celoe, "0"), 2))
    drob = CLng(StrReverse(Right(Format(chislo, "000000000000000.000"), 3)))
    LenDrob = Len(CStr(drob))
    drob = CLng(StrReverse(drob))
    If drob = 0 Then
        m = MNumProp(CDbl(celoe)) & " процент" & IIf(celoe2 \ 10 = 1 Or ((celoe2 + 9) Mod 10) >= 4, "ов", IIf(celoe2 Mod 10 = 1, "", "а"))
    Else
        m = MNumProp(celoe, 1) & " цел" & IIf(celoe2 Mod 10 = 1 And (celoe2 \ 10) Mod 10 <> 1, "ая ", "ых ") & MNumProp(drob, 1)
        m = m & " " & Array("десят", "сот", "тысячн")(LenDrob - 1) & IIf(drob Mod 10 = 1 And drob \ 10 Mod 10 <> 1, "ая", "ых") & " процента"
    End If
    MProcProp = UCase(Left(m, 1)) & Mid(m, 2)
End Function
 
Function MNumProp(chislo As Double, Optional rod As Boolean = False) As String
    'Целое число прописью, Автор MCH (Михаил Ч.), модификация май 2019
    'rod = True - женский род, False - Мужской
    Dim sNum As String, ed, des, sot, nadc, razr, i As Long, m As String
    If chislo >= 1E+15 Or chislo < 0 Then Exit Function
    sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
    des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
    nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
    ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ", "", "одна ", "две ")
    razr = Array("триллион ", "триллиона ", "триллионов ", "миллиард ", "миллиарда ", "миллиардов ", "миллион ", "миллиона ", "миллионов ", "тысяча ", "тысячи ", "тысяч ", " ", " ", " ")
    
    sNum = Left(Format(chislo, "000000000000000"), 15)
    If CDbl(sNum) = 0 Then m = "ноль "
    For i = 1 To Len(sNum) Step 3
        If Mid(sNum, i, 3) <> "000" Or i = Len(sNum) - 2 Then
            m = m & sot(CInt(Mid(sNum, i, 1))) & IIf(Mid(sNum, i + 1, 1) = "1", nadc(CInt(Mid(sNum, i + 2, 1))), _
                    des(CInt(Mid(sNum, i + 1, 1))) & ed(CInt(Mid(sNum, i + 2, 1)) + IIf((i = Len(sNum) - 5 Or (i = Len(sNum) - 2 And rod = True)) And CInt(Mid(sNum, i + 2, 1)) < 3, 10, 0))) & _
                    IIf(Mid(sNum, i + 1, 1) = "1" Or (Mid(sNum, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(sNum, i + 2, 1) = "1", razr(i - 1), razr(i)))
        End If
    Next i
    MNumProp = Trim(m)
End Function