VB 从TEXT数组中找出最大值,给数值最大的TEXT文本上色

有8个text控件，放在一个text（i）数组中，放在一个TIMER控件中，i=1-8,

Private Sub Timer3_Timer()
Dim I As Integer, MAX As Double
For I = 1 To 8
If Text1(I).Text > MAX Then
MAX = Text1(I).Text
End If
Next
ZuiDa.BackColor = vbRed
我想实现TIMER每执行一次，找到一个最大的TEXT文本框，并给他上色

End Sub

Private Sub Timer3_Timer()
Dim I As Integer, MAX As Double
For I = 1 To 8
If Text1(I).Text > MAX Then
MAX = Text1(I).Text
End If
Next
for i=1 to 8
if max = val(text1(i).text) then
text1(i).BackColor = vbRed
exit for
endif
next i
End Sub

不明白啊 = =！