VBScript - Eintrag in Select-Feld auswählen

Hallo,

ich habe ein selectfeld:

<select name="test" id="test" multiple></select>  

diesem weise ich wie folgend einträge zu:

set ListItem = document.createElement("OPTION")  
ListItem.Text = "eintrag"  
ListItem.Value = "wert"  
document.getElementByID("test").add ListItem  

nun habe ich einen button.
wenn dieser geklickt werden soll, soll beispielsweise eintrag 2 in der liste markiert werden.

wie realisiere ich das mit VBScript?

danke!

€dit:
natürlich meine ich das clientseitige VBS, was so ähnlich wie JS ist - nicht das serverseitige asp-vbs