Did you read
all of post #6? It contains instructions for how to limit the box to just the "vowel" & ChrW(9700) & "consonant".
To include one or more consecutive preceding vowels, simply change "[aeiouy]" to "[aeiouy]{1,}". If you want to be selective about which preceding vowel combinations it will accept, a different approach will been needed, but I'd need to know exactly which every one of those vowel combinations is - I don't propose to try to decipher them from the abysmal '.Text =' expression in your last post.
In the meantime, you might try:
Code:
.Text = "[aeiouyæ" & ChrW(593) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(650) & ChrW(652) & "]{1,}" _
& ChrW(9700) & _
"[!^32-^62\?\@aeiouyæ" & ChrW(593) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(650) & ChrW(652) & "]"
Finally, as already requested in post #2, please use the code tags when posting code.