Here's my 207, I'm sure it can get below 200 I just can't see it myself.

 Code:
; begin KiXgolfUDF
;
;!
Function EDTS($p)
Dim $, $v, $i, $n, $o, $c

For $i = 1 to $p^0

	$ = substr($p,$i,1)

	if instr(aeiou,$)
		$v = $i
	else
		$c = $i
	endif

	if abs($c - $v) = 3 | ($o = $ & o<>$ & e<>$) | $c - $v = ($p^)
		$n = 'not '
	endif

	$EDTS = '<' + $p + '> is ' + $n + acceptable.
	
	$o = $

EndFunction
;!
;!
; end KiXgolfUDF
_________________________
The Code is out there