textbox 有关问题

textbox 问题
dim   x   as   integer  
    for   x=0   to   35
          if   text1(x)=0   then  
                    text2(1)=text1(x).index  
          end   if    
    next   x  

'到这里后就能实现，当text1(x)=0时，自动在text2(1)里面显示text1(x).index  
然后继续查找，比如     text1(4)=0的时候，自动在text2(2)里面显示text1(4).index
  当text1(15)=0时，自动在text2(3)里面显示text1(15).index，这个如何实现呢？

谢谢大家！

[解决办法]
dim x as integer
dim i as long
i=1
for x=0 to 35
if text1(x)=0 then
text2(i)=text1(x).index
i=i+1
end if
next x
[解决办法]
Private Sub Text1_Change(Index As Integer)
If Index > 35 Then Exit Sub
If Val(Text1(Index).Text) <> 0 Then Exit Sub
Text2(Index) = Text1(Index).Index
End Sub
[解决办法]
dim x as integer
dim Count as integer
for x=0 to 35
if text1(x).text=0 then
text2(Count )=x
count =count +1
end if
next x