VB评分软件 去掉最高、最低分

Private Sub Command1_Click()
Dim arry1(9) As Variant
For i = 0 To 9
arry1(i) = Val(Text1(i).Text)
Next
'对数组排序
Dim w1, w2 As Integer
Dim temp1 As Variant
For w1 = 0 To UBound(arry1()) - 1
For w2 = w1 + 1 To UBound(arry1())
If arry1(w1) < arry1(w2) Then
temp1 = arry1(w1)
arry1(w1) = arry1(w2)
arry1(w2) = temp1
End If
Next
Next
Sum = 0
For j = 1 To 8
Sum = Sum + arry1(j)
Next
MsgBox "去掉一个最高分:" & arry1(0) & "--去掉一个最低分：" & arry1(9) & "--最后得分为：" & Sum / 8
End Sub
用控件数组，放一个text，然后复制粘贴成10个

我的思路是把文本框做成组，然后在数据输入后进行遍历排序，这样就可以轻易去掉第一个和最后一个了，再把剩余的相加求平均……

10个文本框用控件数组
假设：TextNum(0)-TextNum(9)
Private Sub Command1_Click()
Dim i As Integer
Dim MyPoint(9) As Double
Dim MaxNum As Integer
Dim MinNum As Integer
MaxNum = 0: MinNum = 0
For i = 1 To