Dim vals() As Integer = {123, 456, 789}
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim val As Integer = vals(ComboBox1.SelectedIndex)
        ' ...
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("DSL 1234")
        ComboBox1.Items.Add("DSL 4567")
        ComboBox1.Items.Add("DSL 7890")
        ' ...
    End Sub