Report Size of Microsoft Edge's browser cache (VBA)

Attribute VB_Name = "EdgeCacheSizeReport"
Option Explicit

Public Sub EdgeCacheSizeReport()
    Dim fso As Object
    Dim folder As Object
    Dim folderPath As String

    folderPath = Environ("LOCALAPPDATA") & "\Microsoft\Edge\User Data\Default\Cache"

    Set fso = CreateObject("Scripting.FileSystemObject")

    If Not fso.FolderExists(folderPath) Then
        MsgBox "Folder not found:" & vbCrLf & folderPath, vbExclamation
        Exit Sub
    End If

    Set folder = fso.GetFolder(folderPath)

    MsgBox "Microsoft Edge's browser cache" & vbCrLf & folderPath & vbCrLf & _
           "Size: " & Format(folder.Size / 1048576, "#,##0.00") & " MB" & vbCrLf & _
           "Files (top level): " & folder.Files.Count, vbInformation
End Sub