VB6.0中如何用inputbox函数实现输入10个数字，求最大的哪一个？

VB6.0中如何用inputbox函数实现输入10个数字，求最大的哪一个？

 dim max as integer
dim i as integer
dim x as integer
for i = 1 to 10
x = val(inputbox("请输入第" & i & "个数"))
if x > max then max = x
next
msgbox max