Importação de json

estou precisando importar um arquivo
estou aki

Código:

Public Function LeArquivo()
    Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim TextoArquivo As String
    Dim TextoProximaLinha As String
    Dim ContadorLinha As Long
 
    'Configura a leitura do arquivo
    Arquivo = FreeFile
    
 
    'Abre o arquivo para leitura
    Open Application.CurrentProject.Path & "\Monitor\pedido\1530730237041-BySbv5qG7.json" For Input As Arquivo
    ContadorLinha = 1b
"
    'Lê o conteúdo do arquivo linha a linha
    Do While Not EOF(Arquivo)
        Line Input #Arquivo, TextoProximaLinha
        TextoProximaLinha = TextoProximaLinha & vbCrLf
        TextoArquivo = TextoArquivo & TextoProximaLinha
    Loop
 
    'Coloca na janela de verificação imediata
    Debug.Print TextoArquivo
 
    'Fecha o arquivo
    Close Arquivo
 
End Function


mas preciso importa o campo depois dos ":"
Ex "ID": "1"
no caso importaria só o 1

cheguei aki

Código:

Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim TextoArquivo As String
    Dim TextoProximaLinha As String
    Dim ContadorLinha As Long
    Dim str As String
    Dim arrver
 
   
    Arquivo = FreeFile
   
 
   
    Open Application.CurrentProject.Path & "\Monitor\pedido\1530715142649-SkkGhUcG7.json" For Input As Arquivo
    ContadorLinha = 1
   
    Do While Not EOF(Arquivo)
        Line Input #Arquivo, TextoProximaLinha
        TextoProximaLinha = TextoProximaLinha & vbCrLf
        TextoArquivo = TextoArquivo & TextoProximaLinha
    Loop
    arrver = Split(TextoArquivo, ",")
   
    MsgBox arrver(0)
    MsgBox arrver(1)
    MsgBox arrver(2)
    MsgBox arrver(3)
    MsgBox arrver(4)
    MsgBox arrver(5)
    MsgBox arrver(6)
    MsgBox arrver(7)
    MsgBox arrver(8)
    MsgBox arrver(9)
 
   
    Close Arquivo

consegui extrair por elemento mas agora tenho alguma dúvidas, qdo chego em "itens:" não sei qtos elementos vou ter pois podem ter vários itens e tenho q fazer um laço, pelo menos eu acho para percorrer tudo isso.
se puderem me ajudar agradeço

Olá,
Disponibilize a base de dados com a tabela que vai receber os dados e o ficheiro a importar.

Abraço

Segue, o arquivo solicitado

Olá, não está esquecido.
Já tem mais alguma coisa (código) feito?

Abraço