Good morning guys, here my 234
Will not have any time for golfing this weekend, so, have a nice one!
(Gratz on the 2000th post Allen!)

 Code:
; begin KiXgolfUDF
;
;!
function EDTS($4)
	dim $, $2, $3, $5, $6
	$2 = ccc,vvv,x
	for $3 = 1 to 0^$4
		dim $1
		$ = substr($4, $3, 1)
		$5 = $5 + iif(instr(aeiou, $), v, c) + left(x,$=$6 & $<>e & $<>o)
		$6 = $
		for each $ in $2
			if instr($5, $) | instr($5, v) = 0
				$1 = 'not '
			endif
			$EDTS = '<' + $4 + '> is ' + $1 + acceptable.
endfunction
;!
;!
; end KiXgolfUDF
_________________________