Comment dire que la lettre vaut un chiffre

Option VBASupport 1

Function additionner_lettres(mot as string, dico_equivalence as Scripting.Dictionary)
    compteur = 0
    taille = len(mot)
    for i = 1 to taille
        compteur = compteur + dico_equivalence(mid(mot, i, 1))
    next i
    additionner_lettres = compteur
End Function

Sub Main
 dim liste_pour_remplissage_nombre(25) as String
    dim dico_equivalence_lettre_chiffre as New Collection
    
    dim phrase as string
    dim mot_test as string
    mot_test = "abba"
    dim resultat as integer

    for i = 0 to UBound(liste_pour_remplissage_nombre)
        liste_pour_remplissage_nombre(i) = Chr(65+i)
    Next i
 
    for i = 0 to UBound(liste_pour_remplissage_nombre)
        phrase = "Tape la valeur équivalente à " & liste_pour_remplissage_nombre(i)
        temporaire = inputbox(phrase)
        dico_equivalence_lettre_chiffre.add(temporaire, liste_pour_remplissage_nombre(i))
    next i

    resultat = additionner_lettres(mot_test, dico_equivalence_lettre_chiffre)
    msgbox resultat
End Sub