ComboBox: создать список, что бы каждому пункту было присвоено числовое значение

Private Sub Form_Load()
     Combo1.AddItem "0,2", 0
      Combo1.AddItem "0,3", 1
      Combo1.AddItem "0,4", 2
      Combo1.AddItem "0,5", 3
      Combo1.AddItem "0,6", 4
End Sub
 
Private Sub Combo1_Click()
Text1.Text = ""
Select Case Combo1.ListIndex
    Case 0:             k = 0.2
    Case 1:             k = 0.3
    Case 2:             k = 0.4
    Case 3:             k = 0.5
    Case 4:             k = 0.6
End Select
Text1.Text = k
End Sub

Private Sub Combo1_Click()
Text1.Text = Combo1
End Sub

Private Sub Form_Load()
     Combo1.AddItem "пакет", 0
      Combo1.AddItem "мешок", 1
      Combo1.AddItem "сумка", 2
      Combo1.AddItem "рюкзак", 3
      Combo1.AddItem "чехол", 4
End Sub
 
Private Sub Combo1_Click()
Text1.Text = ""
Select Case Combo1.ListIndex
    Case 0:             k = 2000 'цена каждого элемента
    Case 1:             k = 500
    Case 2:             k = 1500
    Case 3:             k = 2500
    Case 4:             k = 3200
End Select
Text1.Text = k    'при выборе соответствующего наименования в текстбоксе появится его цена
End Sub

Private Sub Form_Load()
     Combo1.AddItem "пакет", 0
      Combo1.AddItem "мешок", 1
      Combo1.AddItem "сумка", 2
      Combo1.AddItem "рюкзак", 3
      Combo1.AddItem "чехол", 4
End Sub
 
Private Sub Combo1_Click()
Text1.Text = ""
Select Case Combo1.ListIndex
    Case 0:             k = 2000 'цена каждого элемента
    Case 1:             k = 500
    Case 2:             k = 1500
    Case 3:             k = 2500
    Case 4:             k = 3200
End Select
Text1.Text = k    'при выборе соответствующего наименования в текстбоксе появится его цена
End Sub