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?