Visual basic Ексель Как задать относительный путь вместо абсолютного - VB

Формулировка задачи:

Нашел макрос для Экселя. Этот макрос возвращает колонку с гиперссылками. См ниже Cells(r, 2).Formula = "=HYPERLINK(""" & FileItem.Path & """)" Сложность в том что гиперссылка Абсолютная. с:// и далее. Мне надо сделать ей относительной. Относительно расположения файла эксель. Как изменить этот код??? Заранее спасибо. Если этого недостаточно вот весь макрос.

                    Листинг программы
                
 
                            
                        
Sub FileList()
    Dim V As String
    Dim BrowseFolder As String
     
    '????????? ?????????? ???? ?????? ?????
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "???????? ????? ??? ????"
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "?? ?????? ?? ???????!"
            Exit Sub
        End If
    End With
    BrowseFolder = CStr(V)
     
    '????????? ???? ? ??????? ?? ???? ????? ???????
    ActiveWorkbook.Sheets.Add
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "??? ?????"
    Range("B1").Value = "????"
    Range("C1").Value = "??????"
    Range("D1").Value = "???? ????????"
    Range("E1").Value = "???? ?????????"
     
    '???????? ????????? ?????? ?????? ??????
    '???????? True ?? False, ???? ?? ????? ???????? ????? ?? ????????? ?????
    ListFilesInFolder BrowseFolder, True
End Sub
 
Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)
 
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim SubFolder As Object
    Dim FileItem As Object
    Dim r As Long
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.getfolder(SourceFolderName)
 
    r = Range("A65536").End(xlUp).Row + 1   '??????? ?????? ?????? ??????
    '??????? ?????? ?? ?????
    For Each FileItem In SourceFolder.Files
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = "=HYPERLINK(""" & FileItem.Path & """)"
        'Cells(r, 3).Formula = FileItem.Size
        'Cells(r, 4).Formula = FileItem.DateCreated
        'Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        X = SourceFolder.Path
    Next FileItem
     
    '???????? ????????? ???????? ??? ?????? ????????? ?????
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If
 
    Columns("A:E").AutoFit
 
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
 
End Sub

Решение задачи: «Visual basic Ексель Как задать относительный путь вместо абсолютного»

textual
                            Листинг программы 
                        
ActiveSheet.Hyperlinks.Add Cells(r, 2), FileItem.Path, , , FileItem.Name