Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_edts.kix

Computer
OS               = Windows Vista Ultimate Edition
CPU              =               Intel(R) Pentium(R) D CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 2048 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Easier Done Than Said?
Processing Start = 2008/12/13 19:42:33.351
Processing End   = 2008/12/13 19:42:33.394
Duration         = 0000/00/00 00:00:00.043
KiXGolf Score    = 196

Thank you for participating in KiXtart Golf!
Press any key to continue...

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 | $i * 2 = ($p^) | $o = $ & $ > e & $ < o
        $n = 'not '
EndFunction