How can I add elements to SELECT with VBScript ?

Thanks !