With cmbZoom
 
      .AddItem "1 x"
      .AddItem "2 x"
      .AddItem "4 x"
      .AddItem "0,5 x"
 
        .ListIndex = 0
  End With

Private Sub cmbZoom_Change()
 
With cmbZoom
  If .ListIndex > -2 Then     '  -1 Then
    MsgBox .ListIndex
  End If
End With
 
End Sub