Here is my extremely bloated code:
 Code:
Function EDTS($)

Dim $v,$c,$t,$Y,$z,$b,$e
$V = split("a e i o u")
$C = split("b c d f g h j k l m n p q r s t v w x y Z")
$b = "<"+$+"> is "
$e ="acceptable."

For each $z in $V
	If instr ($,$z) 
		$T = 1
	EndIf
Next

For $y = 1 to Len($)

 
	If ascan($v,Substr($,$y,1)) => 0 AND ascan($v,Substr($,$y+1,1)) => 0 AND ascan($v,Substr($,$y+2,1)) => 0
		$T = $t + 1
	EndIf
 
	If ascan($c,Substr($,$y,1)) => 0 AND ascan($c,Substr($,$y+1,1)) => 0 AND ascan($c,Substr($,$y+2,1)) => 0 
		$T = $t + 1
	EndIf
	If substr($,$y,1) = substr($,$y+1,1)
	   If substr($,$y,1) <> "e" AND substr($,$y,1) <> "O"
		$T = $T + 1
	   EndIf
	EndIf
Next

If $T = 1
 $EDTS= $b + $e
Else
 $EDTS= $b +  "not " + $e
EndIf

EndFunction
_________________________
Today is the tomorrow you worried about yesterday.