vbs输入9个数怎么获取最小的数和最大的数

s1=inputbox("请第一个正整数")
s2=inputbox("请第二个正整数")
s3=inputbox("请第三个正整数")
s4=inputbox("请第四个正整数")
s5=inputbox("请第五个正整数")
s6=inputbox("请第六个正整数")
s7=inputbox("请第七个正整数")
s8=inputbox("请第八个正整数")
s9=inputbox("请第九个正整数")
***********************
*************
************
msgbox("最小的数是: " &x &" 最大的数是: " &d)

新手求代码,谢谢

s1=inputbox("请第一个正整数")
s2=inputbox("请第二个正整数")
s3=inputbox("请第三个正整数")
s4=inputbox("请第四个正整数")
s5=inputbox("请第五个正整数")
s6=inputbox("请第六个正整数")
s7=inputbox("请第七个正整数")
s8=inputbox("请第八个正整数")
s9=inputbox("请第九个正整数")

min = s1
max = s1
For i=1 To 9
Execute "n = s" & i '这里i是变量，需要Execute来执行
If n < min Then
min = n
End If
If n > max Then
max = n
End If
Next
MsgBox("最小的数是: " &min &" 最大的数是: " &max)

期待看到有用的回答！