private sub textbox1_textchanged(....) handles textbox1.textchanged, ....
' 1º código particular previo de cada caso, si no hat código previo particular para cada caso, esta selección se elimina
select case sender.name.ToUpper
case "TEXTBOX1"
' código particular para este caso...
case "TEXTBOX2"
' código particular para este caso
cas else
' código previo particular para el resto
end select
' 2º código común (si existe) para todos los textbox
' 3º código particular después del código común (si existe) para cada caso
select case sender.name.ToUpper
case "TEXTBOX8888"
' código particular para este caso...
case "TEXTBOX345", "TEXTBOX21", "TEXTBOX45", "TEXTBOX23" ' por ejemplo si 4 textbox comparten el mismo código
' código particular para este caso
case "TEXTBOX_PISTOLA"
' código particular para este caso de pistola
end select
' si procede pueden disponerse más pares ( como el paso 2º y 3º) que pudieran ser necesarios
end sub