VBScript duda/problema en bucle

[lukas4]

que tal ya regrese, ya arregle lo del campo vacio, si esta vacio te pregunta de nuevo, si le metes un valor se sale, ahora la pregunta es, como hago para que cuando el usuario le de click en cancel se salga el programa?, aqui les dejo el codigo:

Código vb:

Dim x,y,z
Do 
 y=InputBox("cadena/numero/letra: ")
 x=Len(y)
 'If x <=0 Then
  'y=0
 'End If
Loop While x<=0