[Resolvido]Como ordenar array

Colegas, estou precisando alterar o código abaixo para que o resultado seja impresso por ordem (A-Z) da variável vNome.

Dim rsTblSelecaoEquipe As Recordset, rsCad As Recordset[/color]
Dim vNome(0 To 60) As String, vCargo(0 To 60) As String, vMatricula(0 To 60) As String, vCpf(60) As String
Dim VEquipe(60) As String, vTotGeral(60)
Dim i As Integer

Set rsTblSelecaoEquipe = CurrentDb.OpenRecordset("TblSelecaoEquipe")
 
      Do While Not rsTblSelecaoEquipe.EOF
       Set rsCad = CurrentDb.OpenRecordset("SELECT * FROM TabCadpoliciais WHERE Matricula  ='" & rsTblSelecaoEquipe!Matricula & "'")
           
           vMatricula(i) = Format(rsTblSelecaoEquipe!Matricula, "@@@\.@@@-@")
           VEquipe(i) = Replace(rsTblSelecaoEquipe!DiastrabPlantIntTxt, " - ", ",") & Replace(rsTblSelecaoEquipe!DiastrabDeplanTxt, " - ", ",")
           vNome(i) = rsCad!nome
           vCpf(i) = Format(rsCad!CPF, "@@@\.@@@\.@@@-@@")
           vTotGeral(i) = Format(rsTblSelecaoEquipe!TotGeral, "00")
           
        ' faz incremento a variável "i"
           i = i + 1
      rsTblSelecaoEquipe.MoveNext
   Loop

No aguardo de ajuda   

Não ocorreu qualquer alteração depois de inserir no código sua contribuição. Um fato q esqueci de falar é q os dados coletados serão inseridos em doc do word por meio de indicador.
.ActiveDocument.Bookmarks("Matricula0").Select
.Selection.Text = vMatricula(0)

.ActiveDocument.Bookmarks("Nome0").Select
.Selection.Text = vNome(0)

.ActiveDocument.Bookmarks("CPF0").Select
.Selection.Text = (CStr(vCpf(0)))

.ActiveDocument.Bookmarks("DiasTrab0. ").Select
.Selection.Text = VEquipe(0)
'-----------
.ActiveDocument.Bookmarks("Matricula1").Select
.Selection.Text = vMatricula(1)

...
Ainda estou no aguardo de ajuda

Amigos, não consegui fazer ordenação por meio do array, entretanto consegui solucionar o problema. Como o código acima funciona perfeitamente, ou seja, estou conseguindo fazer a coleta dos dados e imprimir no word por meio de indicadores, utilizei em parte a sugestão do moderador Avelino Sampaio. A solução foi criar por meio de uma "consulta tipo criar tabela" uma tabela temporária contendo os dados da tabela TblSelecaoEquipe e da TabCadpoliciais o campo NOME. Na consulta foi colocado a opção de ordenação crescente do campo nome.  Agora estou conseguindo fazer impressão dos dados em ordem alfabética.
Eu sei que a solução não é 100% correta, mas está atendendo as minhas necessidades até que eu encontre um código (VBA) que faça a ordenação dos dados do array.
Assim que conseguir um código que realmente ordene o array eu colocarei o tópico como resolvido. !!!
     

Obrigado pela ajuda.
Testei o código e funciona corretamente.
Agora vou fazer as adaptações necessárias e quando estiverem prontas ou postar aqui no forum.