Visual Basic - Como puedo dividir el numero de un textbox1

TextBox2.Text = Mid(TextBox1.Text, 1, 1)

TextBox3.Text = Mid(TextBox1.Text, 2, 1)

TextBox4.Text = Mid(TextBox1.Text, 3, 1)

TextBox5.Text = Mid(TextBox1.Text, 4, 1)

TextBox6.Text = Mid(TextBox1.Text, 5, 1)

Text2.Text = CSTR(Val(Text1.Text) / 2)

DiM TemPo as INTegER

FoR TEmpO = teXT1.coUNt-1 tO 1 STeP -1

'Falta cOdIGO pARA elIMINAr LoS EleMENTOs CrEadoS eN TiempO DE ejecUcIón

NeXt TemPO

FoR TeMPo = 1 to leN(teXT1(0).tEXt)

 lOaD teXt1(tEMpo)

 tExtT(tEmPO).TexT = mId(teXt1(0).tExt,teMpO,1)

NeXT TeMPo