Gibt es denn ein Item mit dem Index 1?

Schreib mal als Sub für ComboBox_SelectedItemChanged oder was auch immer es da für nen Listener gibt:
Msgbox("Item: " & list_option.Text & " (Index: " & lst_option.SelectedIndex & ")")