carichi tutti i valori in un array e poi li assegni al controllo textbox che ti serve

codice:
dim arr_valore() as int

for i=0 to len(importo) - 1
	valore = mid(importo, i, 1)
	
	redim preserve arr_valore(i) as int	
	arr_valore = valore
next i

text1.text = arr_valore(0)
text2.text = arr_valore(1)
text3.text = arr_valore(2)

....
oppure con un array di controlli

codice:
for i=0 to len(importo) - 1
	valore = mid(importo, i, 1)
	
	text(i).text = valore 
next i