Abre ventana emergente

Aquí tienes un código VBscript que permite abrir con un botón una ventana popup (emergente).
Además es un ejemplo del evento B1_OnClick. Es decir una función que se desencadena al pulsar el botón B1