Hola existe algunos módulos para leer JSON, pero veo que para tu caso s un Json sencillo y podría pasearse con algunas funciones
Private Sub Form_Load()
Dim oXMLHTTP As Object
Dim sURL As String
Dim sJSON As String
Dim lPos1 As Long, lPos2 As Long
sURL = "https://api.coinbase.com/v2/prices/spot?currency=USD"
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.Open "GET", sURL, False
oXMLHTTP.send
If oXMLHTTP.Status = 200 Then
sJSON = oXMLHTTP.responseText
lPos1 = InStrRev(sJSON, """:""")
lPos2 = InStrRev(sJSON, """")
Text1.Text = Mid$(sJSON, lPos1 + 3, lPos2 - lPos1 - 3)
End If
End Sub