Sub ciclote()

	Dim i,suma,promedio,mayor,valor As Double
	i = 0
	suma = 0
	promedio = 0
	mayor = 0

	valor = Val(InputBox("Introduzca un valor(0 para terminar): "))
	While valor <> 0
		suma = suma + valor
		if valor > mayor then
			mayor = valor
		end if
		valor = Val(InputBox("Introduzca un valor(0 para terminar): "))
		i = i+1
	Wend
	promedio = suma / i
	MsgBox("La suma de los numeros es: " & suma)
	MsgBox("El numero mayor fue: " & mayor)
	MsgBox("El promedio de los numeros es: " & promedio)		

End Sub