Lo que puedes hacer es esto :
Código vb:
Ver originalDim segments As New ArrayList
For Each item In ComboBox1.Items
segments.Add(item.ToString())
Next
TextBox1.Text = segments(0).ToString()
TextBox2.Text = segments(1).ToString()
TextBox3.Text = segments(2).ToString()
TextBox4.Text = segments(3).ToString()
TextBox5.Text = segments(4).ToString()
TextBox6.Text = segments(5).ToString()
ó tambien este otro metodo :
Código vb:
Ver originalDim segments(ComboBox1.Items.Count - 1) As String
For i As Integer = 0 To ComboBox1.Items.Count - 1
segments(i) = ComboBox1.Items(i).ToString()
Next
TextBox1.Text = segments(0).ToString()
TextBox2.Text = segments(1).ToString()
TextBox3.Text = segments(2).ToString()
TextBox4.Text = segments(3).ToString()
TextBox5.Text = segments(4).ToString()
TextBox6.Text = segments(5).ToString()
Saludos!

.