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