I don't have vb6 here so I am doing this from memory... Please amend syntax error if any...

vb Code:
  1. Private Sub Txt_array_Change(Index As Integer)
  2.     Select Case Index
  3.     '~~> change was made in Txt_array(0)
  4.     Index = 0
  5.    
  6.     '~~> change was made in Txt_array(1)
  7.     Index = 1
  8.    
  9.     '~~> change was made in Txt_array(2)
  10.     Index = 2
  11.        
  12.     '~> And so on
  13.     End Select
  14. End Sub