Office: alphabetische Sortierung ausschalten mit vba

Hallo Forum

Ich möchte in einem Makro die Dateien eines Odners in einer Userform in einem Listenfeld anzeigen.
Das klappt soweit auch. Ich möchte jedoch den User wählen lassen zwischen alpabetischer Sortierung der Dateien und einer Sortierung nach dem Datum der Datei.
Laut offiziellen Hinweisen von Microsoft http://msdn2.microsoft.com/en-us/library/aa142035(office.10).aspx funktioniert das mit der .execute Anweisung.

Code:

.Execute(SortBy:=msoSortByLastModified, _
    SortOrder:=msoSortOrderDescending)

Leider wird die Sortierung nach Datum ignoriert. Woran das liegt, weiss ich auch nicht.
Hier mein Skript:
frmÄD.lstStellungnahmen ist die Liste
optaplhabet der optionsbutton, der wenn er aktiviert ist, für eine alphabetische Sortierung sorgen soll, wenn nicht für Sortierung nach Datum

Code:

frmÄD.lstStellungnahmen.Clear
With Application.FileSearch
  .NewSearch
  .LookIn = ordner$
  
  If optalphabet.Value = True Then
  If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        
        For i = 1 To .FoundFiles.Count
             frmÄD.lstStellungnahmen.AddItem Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len(ordner$))
        Next i
    Else
    End If
  Else
          
  If .Execute(SortBy:=msoSortByLastModified, _
    SortOrder:=msoSortOrderDescending) > 0 Then
        
        For i = 1 To .FoundFiles.Count
             frmÄD.lstStellungnahmen.AddItem Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len(ordner$))
        Next i
    Else
        MsgBox "Es sind keine Dateien vorhanden."
    End If
  End If
End With

Das Komische ist, dass es zwischendurch funktioniert hat, nach einem Neustart von Word aber auf einmal wieder nicht (ich hatte alles gespeichert). Ich bin ziemlich sicher,d dass der Code richtig ist. Weiß jemand, woran es liegen kann ?

PS: Gibt es eine Möglichkeit, die Liste mit Icons anzuzeigen, also bei *.doc Dateien das dazgehörige Word. Icon ?

:evil: