Algo need help

Function Chiffres_en_Lettres(Montant)
    Résultat = ""
    Francs = Fix(Montant)
    Milliers = Fix(Francs / 1000)
    If Milliers > 0 Then
        If Milliers = 1 Then
           LibMilliers = " mille"
        Else
            LibMilliers = Cent_Mille(Milliers) & " mille"
        End If
        Résultat = LibMilliers
    End If
    Centaines = Francs - (Milliers * 1000)
    LibFrancs = Cent_Mille(Centaines)
    Résultat = Résultat & LibFrancs
    If Résultat <> "" Then
        If Francs = 1 Then
            Résultat = Résultat & " euro"
        Else
            Résultat = Résultat & " euros"
        End If
    End If
    Centimes = Fix((Montant + 0.005 - Fix(Montant)) * 100)
    LibCentimes = Un_Cent(Centimes)
    If LibCentimes <> "" Then
        Résultat = Résultat & LibCentimes
        If LibCentimes = " un" Then
            Résultat = Résultat & " centime"
        Else
            Résultat = Résultat & " centimes"
        End If
    End If
    Chiffres_en_Lettres = Résultat
End Function

Function Un_Cent(Nombre)
    Dim U0a20(19)
    U0a20(0) = "": U0a20(1) = " un": U0a20(2) = " deux": U0a20(3) = " trois"
    U0a20(4) = " quatre": U0a20(5) = " cinq": U0a20(6) = " six": U0a20(7) = " sept"
    U0a20(8) = " huit": U0a20(9) = " neuf": U0a20(10) = " dix": U0a20(11) = " onze"
    U0a20(12) = " douze": U0a20(13) = " treize": U0a20(14) = " quatorze": U0a20(15) = " quinze"
    U0a20(16) = " seize": U0a20(17) = " dix-sept": U0a20(18) = " dix-huit": U0a20(19) = " dix-neuf"
    Dim D2a9(9)
    D2a9(0) = "": D2a9(1) = "": D2a9(2) = " vingt": D2a9(3) = " trente": D2a9(4) = " quarante"
    D2a9(5) = " cinquante": D2a9(6) = " soixante": D2a9(7) = " soixante"
    D2a9(8) = " quatre-vingt": D2a9(9) = " quatre-vingt"
    If Nombre < 20 Then
        Un_Cent = U0a20(Nombre)
        Exit Function
    End If
    Dizaines = Fix(Nombre / 10)
    Un_Cent = D2a9(Dizaines)
    If Nombre < 60 Then
        Unités = Nombre Mod 10
    Else
        Unités = Nombre Mod 20
    End If
    If (Unités = 1 Or Unités = 11) And Dizaines < 8 Then Un_Cent = Un_Cent & " et"
    Un_Cent = Un_Cent & U0a20(Unités)
End Function

Function Cent_Mille(Nombre)
    Centaines = Fix(Nombre / 100)
    Dizaines = Nombre - (Centaines * 100)
    If Centaines > 0 Then
        If Centaines = 1 Then
            Cent_Mille = " cent"
        Else
            Cent_Mille = Un_Cent(Centaines) & " cent"
            If Dizaines = 0 Then Cent_Mille = Cent_Mille & "s"
        End If
    End If
    Cent_Mille = Cent_Mille & Un_Cent(Dizaines)
End Function

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"