Excel VBAで「ActiveWorkbook.Path」 「ThisWorkbook.Path」コードが利用できなくなった時の対処方法

Public Function UrlToLocal(ByRef Url As String) As String

   'OneDrive環境変数を格納する変数の定義
    Dim OneDrive As String

   'OneDrive環境変数の取得
    OneDrive = Environ("OneDrive")

   ' ＵＲＬからローカルパスを作成する
    If Url Like "https://*" Then 'OneDriveのパスかどうかの判定
           
      '「https://･･･････/Documents」までの文字数を取得
      'CharPosi = InStr(1, Url, "/Documents") + 10
      
      'ローカルパス作成
      'Url = OneDrive & Replace(Mid(Url, CharPosi), "/", Application.PathSeparator)
      
     '4番目の「/」の位置を取得
      Dim FourthSlashPosition As Long
      FourthSlashPosition = FindFourthSlashPosition(Url)
      
     'カレントディレクトリのパスを作成
      Url = OneDrive & Replace(Mid(Url, FourthSlashPosition), "/", Application.PathSeparator)
    
    Else
    
      'OneDriveのパス以外だったらカレントドライブ指定
      ChDrive Left(Url, 1)
     
    End If

  '作成したローカルパスを返す
   UrlToLocal = Url


End Function

'-----------------------------------------------------------------------------

'4番目の「/」の位置を求める関数
Function FindFourthSlashPosition(ByVal text As String) As Long
    Dim firstSlashPos As Long
    Dim secondSlashPos As Long
    Dim thirdSlashPos As Long
    Dim fourthSlashPos As Long
    firstSlashPos = InStr(1, text, "/")
    If firstSlashPos > 0 Then
        secondSlashPos = InStr(firstSlashPos + 1, text, "/")
        If secondSlashPos > 0 Then
            thirdSlashPos = InStr(secondSlashPos + 1, text, "/")
            If thirdSlashPos > 0 Then
                fourthSlashPos = InStr(thirdSlashPos + 1, text, "/")
                If fourthSlashPos > 0 Then
                    FindFourthSlashPosition = fourthSlashPos
                Else
                    ' ４番目の「/」が見つからなかった場合の処理
                    FindFourthSlashPosition = -1
                End If
            Else
                ' ３番目の「/」が見つからなかった場合の処理
                FindFourthSlashPosition = -1
            End If
        Else
            ' ２番目の「/」が見つからなかった場合の処理
            FindFourthSlashPosition = -1
        End If
    Else
        ' 最初の「/」が見つからなかった場合の処理
        FindFourthSlashPosition = -1
    End If
        
End Function