Try the following
Dim di As New DirectoryInfo(path)
Dim di2 As DirectoryInfo() = di.GetDirectories()
' Reverse the di2 array
Array.Reverse(di2)
' Now di2 contains the directories in reverse order
If the above response helps answer your question, remember to "Accept Answer" so that others in the community facing similar issues can easily find the solution. Your contribution is highly appreciated.
hth
Marcin