Путь к папке в обратном порядке - получилось наполовину

C:\Users\Администратор\Desktop

Desktop\Администратор\Users\C:

Option Explicit
'
Dim InterchangeSTR As String
Dim i As Integer
Dim cnt As Integer
'
Private Sub Command1_Click()
    Call HistoryToList
End Sub
'
Private Sub Command2_Click()
    Call CopyToListbox
End Sub
'=======================================================================
Private Sub HistoryToList()
    'Заполняем lstHistoryFoldersPaths путями из файла "HistoryFoldersPaths.txt", файл находится в папке программы
    If Len(Dir(App.Path & "\" & "HistoryFoldersPaths.txt")) Then
        frmHistory.lstHistoryFoldersPaths.Clear
        Open App.Path & "\" & "HistoryFoldersPaths.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, InterchangeSTR
            If InterchangeSTR <> "" Then Call ReverseIt
            frmHistory.lstHistoryFoldersPaths.AddItem InterchangeSTR
        Loop
        Close #1
    End If
End Sub
'
Private Sub CopyToListbox()
    '
    For i = 0 To frmHistory.lstHistoryFoldersPaths.ListCount - 1
        If cnt > 100 Then Exit Sub ' страхуемся, а то зависает в бесконечном цикле!
        InterchangeSTR = frmHistory.lstHistoryFoldersPaths.List(i)
        Call ReverseIt
        frmHistory.lstHistoryFoldersCopy.AddItem InterchangeSTR
    Next i
End Sub
'
Private Sub ReverseIt()
    Dim strArrayTMP
    cnt = cnt + 1 ' страхуемся, а то зависает!
    strArrayTMP = Split(InterchangeSTR, "\")
    InterchangeSTR = ""
    For i = UBound(strArrayTMP) To 0 Step -1
        InterchangeSTR = InterchangeSTR & "\" & strArrayTMP(i)
    Next i
    InterchangeSTR = Mid$(InterchangeSTR, 2) 'убираем слэш слева
End Sub

Function URL_Reverse(URL As String) As String
Dim a$(), tmp As String, i As Long, UA As Long
a = Split(URL, "\")
UA = UBound(a)
For i = 0 To UA \ 2
  tmp = a(i)
  a(i) = a(UA - i)
  a(UA - i) = tmp
Next i
URL_Reverse = Join(a, "\")
End Function