Событие: текст в TextBox-e был изменен - VB

Sub ... чендж(index as integer)
B1 = true
 
select cae index
 
case 0
     ' в каждом Case обрабатывается событие Чендж. Каждого TXT
case 1
 
...
 
case n
 
end select
 
end sub