[VBA] Ερώτηση για INWORDS (αριθμοί σε ολογράφως)

[Tasos]

Θα πρέπει να βρεις στη συνάρτηση InWords() όλες τις ακόλουθες συμβολοσειρές και να τις αντικαταστήσεις με τις δικές σου προσθέτοντας
εισαγωγικά πχ "εκατοστά":

λεπτό: ChrW(955) & ChrW(949) & ChrW(960) & ChrW(964) & ChrW(972)

λεπτά: ChrW(955) & ChrW(949) & ChrW(960) & ChrW(964) & ChrW(940)

εκατοστό: ChrW(949) & ChrW(954) & ChrW(945) & ChrW(964) & ChrW(959) & ChrW(963) & ChrW(964) & ChrW(972)

εκατοστά: ChrW(949) & ChrW(954) & ChrW(945) & ChrW(964) & ChrW(959) & ChrW(963) & ChrW(964) & ChrW(940)

ευρώ: ChrW(949) & ChrW(965) & ChrW(961) & ChrW(974)

Ωστόσο θα αντιμετωπίσεις πρόβλημα αν θελήσεις να αλλάξεις τη λέξη ευρώ με άλλη λέξη που κλίνεται και στον πληθυντικό.

Τάσος