' Sort the toolbar
            For lnCounter = 1 To oToolbar.Count

                ' For each toolbar
                For Each loObject In oToolbar

                    ' If this is equal to our actual position
                    If lnCounter = loObject(2) Then

                        ' Add this item in the new collection
                        oToolbarSorted.Add(loObject)

                    End If

                Next

            Next