Sort a Combobox Alphabetically

[stirlingmw]

When my Userform loads a Combobox is populated using the following code:

Private Sub comboboxFill()
CmbFindProject.Clear
totRows = Worksheets("Project Master").Range("A1").CurrentRegion.Rows.count
For i = 2 To totRows
CmbFindProject.AddItem Worksheets("Project Master").Cells(i, 1).value
Next i
End Sub

What code do I need to sort the results alphabetically. The data returned is a list of Projects, and therefore I only need to sort by first letter.
Thanks
Steve

 

[Fluff]

How about

Private Sub UserForm_Initialize()
   Dim Lst As Object
   Dim i As Long
   
   Set Lst = CreateObject("system.collections.arraylist")
   With Sheets("Project Master")
      For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
         Lst.Add .Range("A" & i).Value
      Next i
   End With
   Lst.Sort
   Me.CmbFindProject.list = Lst.toarray
End Sub