Function FilePathURLToUNC( _
  strURL As String, _
  Optional bOnlyDir As Boolean = False, _
  Optional bCorpAcc As Boolean = False _
) As String
    
  Dim astr() As String, lLastElement As Long, li As Long
  astr = Split(strURL, "/")
  li = LBound(astr)
    If astr(li) <> "https:" Then
        FilePathURLToUNC = strURL
        Exit Function
    End If
  lLastElement = UBound(astr) 
  
  Dim strUNC As String
  If bCorpAcc Then
    strUNC = Environ("OneDrive")
    li = li + 6
  Else
    strUNC = Environ("OneDriveConsumer")
    li = li + 4
  End If
  For li = li To lLastElement
    If li = lLastElement And bOnlyDir Then Exit For
    strUNC = strUNC & "\" & astr(li)
  Next li

  FilePathURLToUNC = strUNC
    
End Function