Sort Combobox list alphabetically

Hello,
I am running this Combobox:

Public Sub UserForm_Initialize()
Dim ListItems As Collection, cell As Range
On Error Resume Next
Set ListItems = New Collection
With ComboBox1
.Clear
For Each cell In Range("ListFruits")
ListItems.Add cell.Value, cell.Value
   .AddItem cell.Value
Next cell
End With
ComboBox1.ListIndex = 1
UserForm1.Show
End Sub

I want to have the Combobox list displayed in alphabetical order, not in the order it is in the ListFruits.

Could anyone advise please?
Thank you