looks like we were all thinking similarly, here is my 220

 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)