Function ConLetras(p_número) As String
    Dim t_decenas
    Dim t_centenas
    Dim v_cantidad As String
    Dim i_diez As Integer
    Dim i_cien As Integer
    
    t_decenas = Array("", "un ", "dos ", "tres ", "cuatro ", "cinco ", "seis ", _
        "siete ", "ocho ", "nueve ", "diez ", "once ", "doce ", "trece ", "catorce ", _
        "quince ", "dieciséis ", "diecisiete ", "dieciocho ", "diecinueve ", _
        "veinte ", "veintiuno ", "veintidós ", "veintitrés ", "veinticuatro ", _
        "veinticinco ", "veintiséis ", "veintisiete ", "veintiocho ", "veintinueve ", _
        "treinta ", "treinta y uno ", "treinta y dos ", "treinta y tres ", "treinta y cuatro ", _
        "treinta y cinco ", "treinta y seis ", "treinta y siete ", "treinta y ocho ", _
        "treinta y nueve ", "cuarenta ", "cuarenta y un ", "cuarenta y dos ", "cuarenta y tres ", _
        "cuarenta y cuatro ", "cuarenta y cinco ", "cuarenta y seis ", "cuarenta y siete ", _
        "cuarenta y ocho ", "cuarenta y nueve ", "cincuenta ", "cincuenta y un ", _
        "cincuenta y dos ", "cincuenta y tres ", "cincuenta y cuatro ", "cincuenta y cinco ", _
        "cincuenta y seis ", "cincuenta y siete ", "cincuenta y ocho ", "cincuenta y nueve ", _
        "sesenta ", "sesenta y un ", "sesenta y dos ", "sesenta y tres ", "sesenta y cuatro ", _
        "sesenta y cinco ", "sesenta y seis ", "sesenta y siete ", "sesenta y ocho ", _
        "sesenta y nueve ", "setenta ", "setenta y un ", "setenta y dos ", "setenta y tres ", _
        "setenta y cuatro ", "setenta y cinco ", "setenta y seis ", "setenta y siete ", _
        "setenta y ocho ", "setenta y nueve ", "ochenta ", "ochenta y un ", "ochenta y dos ", _
        "ochenta y tres ", "ochenta y cuatro ", "ochenta y cinco ", "ochenta y seis ", _
        "ochenta y siete ", "ochenta y ocho ", "ochenta y nueve ", "noventa ", "noventa y un ", _
        "noventa y dos ", "noventa y tres ", "noventa y cuatro ", "noventa y cinco ", _
        "noventa y seis ", "noventa y siete ", "noventa y ocho ", "noventa y nueve ")
    t_centenas = Array("", "ciento ", "doscientos ", "trescientos ", "cuatrocientos ", _
        "quinientos ", "seiscientos ", "setecientos ", "ochocientos ", "novecientos ")

    v_cantidad = Format(p_número, "000000000")
    
    i_diez = Mid(v_cantidad, 8, 2)
    i_cien = Mid(v_cantidad, 7, 1)
    
    ConLetras = t_centenas(i_cien) & t_decenas(i_diez)
    
    
    ' Miles
    If Int(Mid(v_cantidad, 4, 3)) > 0 Then ConLetras = "mil " & ConLetras
    
    i_diez = Mid(v_cantidad, 5, 2)
    i_cien = Mid(v_cantidad, 4, 1)
        
    ConLetras = t_centenas(i_cien) & t_decenas(i_diez) & ConLetras

    ' Millones
    If Int(Mid(v_cantidad, 1, 3)) > 0 Then ConLetras = "millones " & ConLetras
    
    i_diez = Mid(v_cantidad, 2, 2)
    i_cien = Mid(v_cantidad, 1, 1)
        
    ConLetras = t_centenas(i_cien) & t_decenas(i_diez) & ConLetras

End Function
