セル内のURLを読み込んでURIデコードするVBAのサンプルコード（%で始まる文字列を日本語にする）

Option Explicit
Sub ボタン1_Click()
    
    '入力元
    Dim inCell As Range
    Set inCell = Range("A5")
    '出力先
    Dim outCell As Range
    Set outCell = Range("B5")
    
    'URIDecode
    Dim decodedURI As String
    With CreateObject("ScriptControl")
      .Language = "JScript"
      decodedURI = .CodeObject.decodeURI(inCell.Value)
    End With
    outCell.Value = decodedURI

End Sub