If Len(Text1(index).Text) > 0 Then
a = CInt(Text1(index).Text)