title: Ordering Files in a Listbox Alphabetically and not Numerically
body: <p>I am trying to add a list of files from a folder to a listbox in a specific order.
  At the moment, I sort the files in explorer view based on a numeric tag and then rename each of the files so that they are named a(1).docx, a(2).docx, a(3).docx etc. My problem kicks in when I hit a(10).docx and a(11).docx as the ordering is alphabetic and not numeric. When the files enter the listbox they go in order of a(1), a(10), a(11), a(12) etc.
  Is there an easier way to overcome this ordering issue?
  See below for code excerpt</p>
  
  <pre><code>Private Sub GetFiles(strFolder As String)
      If Right(strFolder, 1) &lt;&gt; Chr(92) Then strFolder = strFolder &amp; Chr(92)
      On Error GoTo lbl_Exit:
      sName = Dir$(strFolder)
      Me.ListFiles.Clear          'ListFiles is my listbox
      Do While sName &lt;&gt; ""
          AddItems Me.ListFiles, sName, strFolder
          sName = Dir$
      Loop
  lbl_Exit:
      Exit Sub
  End Sub
  </code></pre>