This looks good -- I have been playing around with the Inspector, but no luck so far. I will report back once I've tried again using your model (probably not till later).
One problem, though, with VBScript in an HTA, is that there is no early binding that I know of. So I can't "reference"...