sub window_onload
dim a(10)
dim b(10)
i=0
while i<10
a(i)=inputbox("Enter The " &i&"th Possition Number")
i=i+1
wend
i=0
big=a(0)
while i<10
if (cint(a(i))>cint(big)) then
big=a(i)
end if
i=i+1
wend
msgbox "Biggest of Ten Number is = " &big,64,"Result Box"
end sub