怎样实现一组文本框中所有值的和是否为1

Question

现在有一组文本框数组8个，想要实现这8个数输入时所有和不是1时就报错，
这个代码应该写在哪个事件？
具体 代码是怎样的？
谢谢了

Answer 1

最好把文本框做成一个数组,在LostFocus事件里计算一下和
用val()把文本转为数值

Answer 2

我把代码写到数组里了，如下：但是不行，好像它是判断第一个文本框都要看是否和为1？怎么改！谢谢
Private Sub Text2_LostFocus(Index As Integer)
Dim m(8) As Double
Dim sm As Double
 For i = 0 To 7
 m(i) = Val(Text2(i).Text)
 Next i
 For i = 0 To 7
 sm = sm + m(i)
 Next i
 If sm <> 1 Then
 MsgBox "权重和不为1，请重新输入"
 For i = 0 To 7
 Text2(i).Text = ""
 Next i
 Text2(0).SetFocus
 End If
 End Sub