Using Access VBA to read JSON data - json

Question

I'm using the following VBA subroutine to read JSON data from a website:
Sub DistanceRetrieve()
Dim url As String, attempts As Integer, strResponse As String, strLatitude As String
Dim WinHttpReq As Object, Json As Object
url = "https://distances.dataloy.com/port/port?filter=portName(EQ)BERGEN"
attempts = 3
Set WinHttpReq = CreateObject("MSXML2.XMLHTTP.6.0")
On Error GoTo TryAgain
TryAgain:
attempts = attempts - 1
Err.Clear
If attempts > 0 Then
With WinHttpReq
.Open "GET", url, False
.SetRequestHeader "Content-Type", "application/json"
.Send
If .Status = 200 Then
strResponse = .ResponseText
Set Json = JsonConverter.ParseJson(strResponse)
strLatitude = Json("latitude")
End If
End With
Else
MsgBox ("A4. No internet connection is available.")
End If
End Sub
Scripting Runtime and WinHTTP Services are referenced and Json Converter is imported. The subroutine, in its core, is found on many sites on the internet. After I run it, strResponse contains just two characters; "[, while it should contain the following string:
[ { "portName": "BERGEN", "countryCode": "NO", "countryName": "Norway", "locationCode": "BGO", "timezone": "Europe/Oslo", "latitude": 60.392039, "longitude": 5.306605, "key": 104146}]
Also, Json("latitude") statement gives "Invalid procedure call or argument" error message. Am I missing somthing?
Best regards.
Said