Index was outside the bounds of the array

[mrprogman]

Tengo un dropdownlist con n valores,el cual necesito me muestre esos n valores en diferentes textbox y me marca el siguiente error.

Index was outside the bounds of the array

..tengo el siguiente codigo

If DropDownList1.SelectedItem IsNot Nothing Then
Dim Item As [String] = DropDownList1.SelectedItem.Text
Dim Segments As [String]() = Item.Split("-"c)

TextBox1.Text = Segments(0).Trim()
TextBox2.Text = Segments(1).Trim()
TextBox3.Text = Segments(2).Trim()
TextBox4.Text = Segments(3).Trim()
TextBox5.Text = Segments(4).Trim()
TextBox6.Text = Segments(5).Trim()
End If

alguien me puede ayudar con esto..?