Ok, da prøver vi dette:
Sub Main(parm As Object)
Dim stop1 As String = "NSR:StopPlace:59854"
Dim stop2 As String = "NSR:StopPlace:27753"
Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}"
Dim result As String = RunQuery(jsonQuery)
hs.WriteLog("EnTur", result)
End Sub
Hvis dette fungerer, så er det noe tull med JSON. Hvis dette ikke fungerer, så er det noe funky med WebClient, men det burde det ikke være.