For some reason the code below will end up deleting every item in the listbox when you select the last item in the list. If I select any other item besides the last item in the list it will only delete that selected item.
Code:
Private Sub DeleteIngredientButton_Click()
Dim Index As Integer
'Delete the selected items from the list of ingredients
For Index = IngredientList.ListCount - 1 To 0 Step -1
If IngredientList.Selected(Index) Then
IngredientList.RemoveItem (Index)
End If
Next Index
End Sub
