Demande: crèation d'un programme en VBA

Bonjour à tous, aurais t'il une personne qui pourrais me créer un programme en VBA,
Les entrées et les sorties sont uniquement des nombres.
je rentre un nombres à 9 chiffres ex : 669165475
et je voudrais faire apparaître les résultats en gras des calculs suivants dans des fenêtres :
Plateau gauche = 5053
Plateau droit = 4896
Vortex = 4887
Tolérance = 228
Total de la clef = 14836
Voici (l'énoncer du problème).


Disposition du tableau. Avec 669165475 :

3 27 105 228 295 228 105 27 3

228 66
105 397 1 5
27 250 9 4
3 103 6 7
22 6 5

L'ordre des opérations :
Plateau gauche1 plateau droit1

6*228=1368 6*228=1368
1*397=397 5*397=1985
9*250=2250 4*250=1000
6*103=618 7*103=721
6*22=132 5*22 =110
Total 4765 total 5184
Valeur approximatif des plateaux sans la tolérance :
Suite :

1*105=105 5*105=525
9*27 =243 4*27 =108
6*3 = 18 7*3 =21
Total 366 total 654
Opération : faire le calcul exact des plateaux gauche et droit
Voici la procédure (654-366) = 288 et une (tolérance+-) des résultats plus haut.
Vous prenez le nombre le plus fort qui est 5184 - 288 = 4896
Vous prenez le nombre le plus bas qui est 4765 + 288 = 5053 la lacune ici est de trouver le programme qui feras que c'est le < nombre ou il faut ajouter la tolérance, et le > qu'il faut la retrancher, pour que l'opération soit exact.
5053 et la valeur exacte du plateau gauche
4896 et la valeur exacte du plateau droit
Il ne reste qu'à calculer le (centre vertical du triangle) que j'appelle le Vortex.

6 6 9 1 6 5 4 7 5
* 3 27 105 228 295 228 105 27 3
= 18 162 945 228 1770 1140 420 189 15 total 4887
4887 = résultat du vortex :
La somme entière de la clef 669165475 est 5053+4887+4896 = 14836
Merci d'avance : Daniel