¿Cómo controlar los botones en InputBox en VBS?

Mientras no se cumpla una condición, salga.

Viento = inputbox("Ingrese una cadena, haga clic en" "Cancelar" "Salir", "Entrar", "Nieve").

if wind = " " o len(wind) lt;15 entonces wscript.quit

Wscript.echo "Este es su código de ejecución"