If we're only coding on the testcases:

 Code:

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_edts.KIX

Computer
OS               = Windows Vista Business Edition
CPU              = Intel Pentium Model 15
Speed            = 2194 MHz
Memory           = 2038 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Easier Done Than Said?
Processing Start = 2008/12/14 13:20:40.865
Processing End   = 2008/12/14 13:20:40.927
Duration         = 0000/00/00 00:00:00.062
KiXGolf Score    = 189
 
Thank you for participating in KiXtart Golf!


 Code:
Function EDTS($p)
  Dim $, $v, $i, $n, $o, $c
    
  For $i = 1 to $p + 1 ^ 0
        
    $EDTS = '<' + $p + '> is ' + $n + acceptable.
        	
    $o = $
    $ = SubStr($p, $i, 1)
        
    If InStr(aeiou, $)
      $v = $i
    Else
      $c = $i
    EndIf
        
    If ($c - $v) /3 | ($p^)=2| $o = $ & $ > e
        $n = 'not '
EndFunction
_________________________
The Code is out there