If you use a timer, then
index1
becomes probably higher than the highest index of
Items
. Before you try to get the item from the combobox, check whether it is possible:
If ComboBox1.Items.Count > index1 Then
Dim email As String = ComboBox1.Items.Item(index1).ToString
index1 = index1 + 1
Else
End If