Sortering af items i ListView1

Her er lidt kode jeg selv har skrevet, samt snuppet fra diverse steder. En form med en Dir1, en ListView1 og en Command1. Spørgsmålet står i koden under ListView1_ColumnClick - jeg kan ikke få den til at sorterer efter størrelse eller dato, kun filnavn...?

Option Explicit

Private Sub Command1_Click()
  Dim FSO As FileSystemObject
  Dim itmX 'as what??
  Dim MyFolder As folder
  Dim MyFolderFiles As Files
  Dim MyFile As File
  Dim i As Byte
 
  'Smider alle filer fra Dir1.Path ind i ListView1
  ListView1.ListItems.Clear
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set MyFolder = FSO.GetFolder(Dir1.Path)
  For Each MyFile In MyFolder.Files
    Set itmX = ListView1.ListItems.Add(, , MyFile.Name)
    itmX.SubItems(1) = MyFile.Size
    itmX.SubItems(2) = MyFile.DateLastModified
  Next MyFile
 
End Sub

Private Sub Form_Load()
  'Sætter kolonner for ListView1
  With ListView1
    .view = 3
    .ColumnHeaders.Add , , "Navn", 2000
    .ColumnHeaders.Add , , "Størrelse", 200, lvwColumnRight
    .ColumnHeaders.Add , , "Ændret", 2000
  End With
End Sub

Private Sub ListView1_ColumnClick(ByVal _
  ColumnHeader As MSComctlLib.ColumnHeader)
 
  'Sorterer data...
  'Virker KUN ved filnavnene, ikke ved 
  'datoerne og filstørrelse hvis
  'filstørrelserne ikke har samme antal cifre
  'PS. Koden er snuppet fra Eksperten -
  'og er ikke 100% forstået :o(

  With ListView1
    If .SortOrder = lvwAscending Then
      .SortOrder = lvwDescending
    Else
      .SortOrder = lvwAscending
    End If
    .Sorted = True
  End With
End Sub