io farei cosi':
crea le text box con una matrice di controlli es:text1(0),Text1(1),text1(2) fino text1(70)

A questo punto fai un ciclo di loop

for i=0 to 70
select case text1(i).text
case 2 to 8
msgbox "aaa"

case else
msgbox "ddd"

end select

next i