Guru do Excel e Power BI

Boa tarde, estou com uma dúvida a respeito de tratamento de String.

Fiz uma requisição de um WebService na qual ele me retorna uma string neste modelo:

{
"atividade_principal": [
{
"text": "Atividades de televisão aberta",
"code": "60.21-7-00"
}
],
"data_situacao": "03/11/2005",
"nome": "GLOBO COMUNICACAO E PARTICIPACOES S/A",
"uf": "RJ",
"telefone": "(21) 2540-2623",
"atividades_secundarias": [
{
"text": "Reprodução de vídeo em qualquer suporte",
"code": "18.30-0-02"
},
{
"text": "Portais, provedores de conteúdo e outros serviços de informação na internet",
"code": "63.19-4-00"
},
{
"text": "Agenciamento de espaços para publicidade, exceto em veículos de comunicação",
"code": "73.12-2-00"
},
{
"text": "Programadoras",
"code": "60.22-5-01"
}
],
"qsa": [
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
},
{
"qual": "10-Diretor",
"nome": "xxxxxxxxxxxxxxxxxxxxxxxxx"
}
],
"situacao": "ATIVA",
"bairro": "JARDIM BOTANICO",
"logradouro": "R LOPES QUINTAS",
"numero": "303",
"cep": "22.460-901",
"municipio": "RIO DE JANEIRO",
"porte": "DEMAIS",
"abertura": "31/01/1986",
"natureza_juridica": "205-4 - Sociedade Anônima Fechada",
"fantasia": "GCP,TV GLOBO, REDE GLOBO, GLOBO.COM, SOM LIVRE",
"cnpj": "xxxxxxxxxxxxxxxxxxxxxxxxx",
"ultima_atualizacao": "2019-03-26T22:48:43.715Z",
"status": "OK",
"tipo": "MATRIZ",
"complemento": "",
"email": "",
"efr": "",
"motivo_situacao": "",
"situacao_especial": "",
"data_situacao_especial": "",
"capital_social": "6453568523.86",
"extra": {},
"billing": {
"free": true,
"database": true
}
}

Os dados que foram substituidos por "xxxxxxxxxxxxxxxxxxxxxxxxx" foi por questão de "segurança", porém não mudou a estrutura do arquivo, precisaria desta estrutura tirar conseguir tratar os campos nome(Razão Social), fantasia, endereço, numero, bairro, cep, cidade, estado.

Atualmente meu código está assim.

_____________________________________________________________________________________________
Dim ws As String
Dim request As New WinHttpRequest

request.Open "GET", "http://receitaws.com.br/v1/cnpj/" & FormEmp.txt_cnpjemp.Value
request.Send
ws = request.ResponseText
MsgBox ws
______________________________________________________________________________________________

Opa no VBA é meio trabalhoso mas tem jeito haha
vamos la primeiro recomendo incorporar alguns arquivos para poder puxar esses dados em json, primeiro tem que baixar dois módulos sendo "mdlInetAPI" e "mdlJsonAPI", e tbm baixar dois modulos de classe sendo eles "ClasseForm" e "Dictionary" ambos vc encontra no github.com, após baixar e incorporar lembre-se de liberar as referencias. Estou lhe encaminhando eles nessa planilha em anexo, porém recomendo dar uma olhada no site que mencionei pois sempre tem atualização.