Olá, gostaria de corrigir esta expressão:

If InStr(objHTTP.responseText, TotalPedagio) = 0 Then GoTo ErrorHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = "TotalPedagio.*?([0-9]+)": regex.Global = False
    Set matches = regex.Execute(objHTTP.responseText)
    tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
    Pedágios = CDbl(tmpVal)

Ela deveria retirar os valores de "TotalPedagio" que é 401.7999 deste texto, que é uma pagina na web e só retorna isso mesmo:

{"TotalPedagio":401.79999999999995,"TotalCombustivel":0.0,"TotalCombustivelDescricao":"R$ 0,00","TotalPedagioDescricao":"R$ 401,80","TotalDescricao":"R$ 401,80","Duracao":"5 horas 28 minutos","Distancia":"443 km","Pedagios":[{"PP":"-23.466109, -46.368850","V":25.9,"VF":0.0},{"PP":"-23.384184,-46.153926","V":24.5,"VF":0.0},{"PP":"-23.283423,-45.860680","V":24.5,"VF":0.0},{"PP":"-23.155856,-45.697987","V":24.5,"VF":0.0},{"PP":"-22.930196,-45.360854","V":100.8,"VF":0.0},{"PP":"-22.494911,-44.569536","V":100.8,"VF":0.0},{"PP":"-22.716332,-43.716703","V":100.8,"VF":0.0}]}

Mas retorna erro
Quebrei a cabeça aqui mas não consegui. Vlw pessoal!