i added the 2 test cases you guys suggested and my 220 code failed, so with the new test cases i have to resubmit my code at 222:
 Code:
[Test 1]
Input=a
Output=<a> is acceptable.
[Test 2]
Input=tv
Output=<tv> is not acceptable.
[Test 3]
Input=ptoui
Output=<ptoui> is not acceptable.
[Test 4]
Input=bontres
Output=<bontres> is not acceptable.
[Test 5]
Input=zoggax
Output=<zoggax> is not acceptable.
[Test 6]
Input=wiinq
Output=<wiinq> is not acceptable.
[Test 7]
Input=eep
Output=<eep> is acceptable.
[Test 8]
Input=houctuh
Output=<houctuh> is acceptable.
[Test 9]
Input=pooop
Output=<pooop> is not acceptable.
[Test 10]
Input=peeep
Output=<peeep> is not acceptable.
[Test 11]
Input=bahhah
Output=<bahhah> is not acceptable.
[Test 12]
Input=abcde
Output=<abcde> is not acceptable.
[Test 13]
Input=ba
Output=<ba> is acceptable.
[Test 14]
Input=baacc
Output=<baacc> is not acceptable.

 Code:
Running Test 1...Done
Running Test 2...Done
Running Test 3...Done
Running Test 4...Done
Running Test 5...Done
Running Test 6...Done
Running Test 7...Done
Running Test 8...Done
Running Test 9...Done
Running Test 10...Done
Running Test 11...Done
Running Test 12...Done
Running Test 13...Done
Running Test 14...Done
Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_edts.kix

Computer
OS               = Windows Vista Business Edition
CPU              =               Intel(R) Pentium(R) D CPU 3.20GHz
Speed            = 3200 MHz
Memory           = 2046 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Easier Done Than Said?
Processing Start = 2008/12/14 07:28:50.867
Processing End   = 2008/12/14 07:28:50.883
Duration         = 0000/00/00 00:00:00.016
KiXGolf Score    = 222

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

 Code:
Function EDTS($a)
  Dim $, $b, $c, $d, $e, $f
  $ = $a
  While $
    $e = Left($, 1)
    If InStr(aeiou, $e)
      $d = $d + 1
      $c = 0
      $f = 1
    Else
      $c = $c + 1
      $d = 0
    EndIf
    $ = Right($, ~)
    If $f = $ | $d > 2 | $c > 2 | $e = Left($, 1) & $e <> e & $e <> o
      $b = 'not '
    EndIf
    ;  Loop
    $EDTS = '<' + $a + '> is ' + $b + acceptable.
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)