Haven't mastered it yet, but something like this might work. This considers "000a" to be a valid room number.

code:
$o = createobject("vbscript.regexp")
$o.pattern = "^(\d{3,4})[a-e]"
if $o.test($roomNumber)
? "Match"
else
? "No Match"
endif

_________________________
Eric