Option Explicit 
		dim num, Aleatorio, max
		num=0
		max=25
		Randomize 
		Aleatorio = CInt((max - 1) * Rnd () + 1)
		MsgBox (Aleatorio)
		num=inputbox("Adivina el numero que pienso del 0 al " & max) 
 
		do until num = Aleatorio 
				if num >Aleatorio then
					msgbox ("Es menor")
				else 
					msgbox ("Es mayor")
				end if
				num=inputbox("Prueba otra vez") 
		loop
		msgbox("Acertastes, era el " & Aleatorio)