[/code]
Dim sPath As String
    Dim sFileList As String
    Dim sFileName As String
    
    sFileList = ""
    sFileName = dir(cPath)
    Do While sFileName <> ""
        sFileList = sFileList & sFileName & ";"
        sFileName = dir
    Loop
    
    Me.cbSelectFile.RowSource = sFileList
    Me.cbSelectFile.Requery
[code]

'Input : RowSource (only one column per row!)
Public Function RowSourceSort(ByVal RowSource As String) As String
   Const cSeparator As String = ";"
   Dim valRef As Double, g As Variant, ref As String, aRow() As String
   Dim h As Long, i As Long, j As Long, k As Long, l As Long, n As Long

   aRow = Split(RowSource, cSeparator)
   n = UBound(aRow) + 1
  
   'Init shellSort gap sequence
   g = Array(1, 4, 10, 23, 57, 132, 301, 701, 1750, 4376, 10941, 27353, 68383, 170958)
   l = LBound(g)
   k = l
   If n < g(UBound(g)) Then
      While g(k + 1) < n: k = k + 1: Wend
   Else
      k = UBound(g)
   End If

   'sort
   While k >= l
      h = g(k)
      For i = h To n - 1
         ref = aRow(i)
         valRef = Val(ref) 'String to numeric
         j = i
         Do While valRef > Val(aRow(j - h))   '> : descending order
            aRow(j) = aRow(j - h)
            j = j - h
            If j < h Then Exit Do
         Loop
         aRow(j) = ref
      Next i
      k = k - 1
   Wend

   RowSourceSort = Join(aRow, cSeparator)
End Function

Me.cbSelectFile.RowSource = RowSourceSort(sFileList)