Peut-être tu veux dire comment l’appeler par une fonction

Function Check(MaChaine)
For i = 1 to Len(MaChaine)
If Asc(mid(MaChaine, i, 1)) >= 65 and Asc(mid(MaChaine, i, 1)) <= 90 then
...