opdr8ten via inhoud textbox

[HellupUandMe]

Yo

Ik heb een vraagje (Visual Basic 2005). Ik heb een textbox en daar kan je zoveel invullen als je wil. Maar wel alleen de getallen 1 t/m 3. Nou, nu wil ik dat mijn programma bij elke 1 die in de textbox staat dit doet:
label1.text = "Je typte een 1"

en bij elke twee die er staat dit doet:
button2.backcolor = color.grey

en bij elke 3 dat ie dit doet:
me.text = "lalala"

Dus stel je vult 123 in dan doet ie dit:
label1.text = "Je typte een 1"
button2.backcolor = color.grey
me.text = "lalala"

en stel je typt 13321231213 dan moet ie dit doen:
label1.text = "Je typte een 1"
me.text = "lalala"
me.text = "lalala"
button2.backcolor = color.grey
label1.text = "Je typte een 1"
button2.backcolor = color.grey
me.text = "lalala"
label1.text = "Je typte een 1
button2.backcolor = color.grey
label1.text = "Je typte een 1
me.text = "lalala"

Ik gebruikt Visual Basic 2005

 

[That Guy]

dim i as long
for i = 1 to len(text1.text)

select case mid(text1.text, i,1)
 case "1"
[COLOR="SeaGreen"]  'doe iets[/COLOR]
 case "2"
[COLOR="seagreen"]  'doe iets[/COLOR]
 case "3"
[COLOR="seagreen"]  'doe iets[/COLOR]
end select

next i

zoiets?

 

[HellupUandMe]

Ja!
Heel erg bedankt!

 

[HellupUandMe]

Maar hoe kan je zorgen dat ie na een getal kijkt? Dus stel je vult in 1yo23grap dan moet ie dit doen:
label1.text = "yo"
button2.backcolor = color.grey
me.text = "grap"

En stel je vult in 23aap1la21auto3gevangenis3flatgebouw dan moet ie dit doen:
button2.backcolor = color.grey
me.text = "aap"
label1.text = "la"
button2.backcolor = color.grey
label1.text = "auto"
me.text = "gevangenis"
me.text = "flatgebouw"