Dim p As Object
  Dim sInputJson As String
  
  sInputJson = Me.Text2    ' Zameni Text2 sa tvoj Json string ili ubaci na formi  Text2 i ucitaj tvoj json u ovaj text2
   
    Set p = JSON.parse(sInputJson)
    MsgBox p.item("journal")
    MsgBox p.item("mrc")