eliminare ultimo carettere se Vocale

[KLINKO]

cosi taglio l'ultimo carattere,

sSTR = Left(sStr, Len(sStr) - 1)

come faccio a porgli la condizione di farlo solo se l'ultimo carattere è una vocale?

[vaargard]

in maniera poco pulita

if lcase(right(stringa,1))='a' or lcase(right(stringa,1))='e' or lcase(right(stringa,1))='i' or lcase(right(stringa,1))='o' or lcase(right(stringa,1))='u' then

   sSTR = Left(stringa, Len(stringa) - 1) 

end if

[optime]

invece di tutte quelle or (che vanno cmq bene, oc! )

vocali="aeiou"
ultima=lcase(right(stringa,1))
if instr(ultima, vocali) then ...

[KLINKO]

thx