NugetでRestSharpとJson.NET(Newtonsoft.json)をインストールしてね
Dim client = New RestClient("https://public.bitbank.cc/") Dim request = New RestRequest("btc_jpy/ticker") Dim response As IRestResponse response = client.Execute(request) Dim content = response.Content Dim jsonObj As Object = JsonConvert.DeserializeObject(content) If jsonObj("data") IsNot Nothing Then Dim BTCJPY = jsonObj("data")("last") End If