'*********************************************************
' Sub SortStringArray(Array() As String)
'
' Método que ordena alfabéticamente una matriz de tipo
' string de una sola dimensión.
'
' Argumentos
'   Array(): La matriz que se ha de ordenar
'
' Este método NO necesita activar el objeto WizHook a 
' través de la propiedad Key.
'
Sub wzSortStringArray()
Dim wzArray(3) As String
Dim i As Integer

    wzArray(0) = "ordenada "
    wzArray(1) = "Matriz "
    wzArray(2) = "WizHook"
    wzArray(3) = "por "
    
    Debug.Print "Matriz sin ordenar:"
    For i = LBound(wzArray) To UBound(wzArray)
        Debug.Print wzArray(i)
    Next
    
    WizHook.SortStringArray wzArray
    
    Debug.Print
    Debug.Print "Matriz ordenada alfabéticamente:"
    For i = LBound(wzArray) To UBound(wzArray)
        Debug.Print wzArray(i)
    Next
    
End Sub
'*********************************************************