Сортировка массива переменных типа String. Как?

Sub BubbleSort(MyArray() As Variant)
    Dim First           As Integer
    Dim Last            As Integer
    Dim i               As Integer
    Dim j               As Integer
    Dim Temp            As String
    Dim List            As String
    First = LBound(MyArray)
    Last = UBound(MyArray)
    For i = First To Last - 1
        For j = i + 1 To Last
            If MyArray(i) > MyArray(j) Then
                Temp = MyArray(j)
                MyArray(j) = MyArray(i)
                MyArray(i) = Temp
            End If
        Next j
    Next i
    For i = 1 To UBound(MyArray)
        List = List & vbCrLf & MyArray(i)
    Next
    MsgBox List
End Sub

Sub demo()
    Dim employees() As Variant
    employees = Array("Brian", "Michael", "Iain", "John", "Johnathan", "Williams", _
    "Bradley", "Samuel", "Robert", "Sean", "Andrew", "Zacharia")
    Call BubbleSort(employees)
End Sub

Function QQQQQ (......) as Variant
Dim myArray() as ....
.....................
QQQQQ = myArray()
End Function