Private Sub Command1_Click()
  Dim PB_DataForSort1( 1000 ) As String
 
 Dim f As Long
 Dim FG As Long
 Dim n As Long
 Dim Rc As Long
 Dim A As Long
 Dim NAdr As Long
  'Допустим что у нас уже есть данные в масиве
   If File1.ListCount =  0  Then Exit Sub
   For f =  0  To File1.ListCount -  1 
     n = n +  1  'эта строчка тоит впереди, потому что нужен отступ, с 1 и ... Его можа сделать штучно PB_DataForSort1(f+1)=PB_DataForSort1(f) в цыкле с большего к меншему (for X=max-1 to min step -1)
     PB_DataForSort1(f) = File1.List(f)
   Next

'Примечание: Не буду изобретать очень сложный велосипед, тому настроюсь на числа и учту только первые 3 символа
'Сам процес очень прост! Гламурно - зато работает!
  For FG =  1  To  999 
    Rc =  0 
    For f = FG To  999 
      A = OcenkiForSort(PB_DataForSort1(f))
      If Rc < A Then Rc = A: NAdr = f ': Stop
    Next
   PB_DataForSort1(FG -  1 ) = PB_DataForSort1(NAdr)
   PB_DataForSort1(NAdr) = ""
  Next
  
  '*******   Показывю ********
  For FG =  1  To  1000 
    List1.AddItem PB_DataForSort1(FG)
  Next
End Sub

Private Function OcenkiForSort(Txt As String) As Long
Const Alfv = "АБВГДЕЄЖЗИІЙЇКЛМНОПРСТУФХЧЦШЩЮЯЬЁЫЪЭ0123456789QWERTYUIOPASDFGHJKLZXCVBNM-" ' Добавте что еще Вам нужно

Dim f As Long
For f =  1  To Len(Txt) ' Уровня Len(Alfv)^3 не должно быть больше as Long возможностей
  OcenkiForSort = OcenkiForSort + (Len(Alfv) - InStr(Alfv, Mid(UCase(Txt), f,  1 ))) ^ ( 4  - f)
  If f =  3  Then Exit For
Next
End Function