Dim request As HttpWebRequest = HttpWebRequest.Create("https://api.openrouteservice.org/v2/directions/driving-car")
request.Method = "POST"
Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes("{""coordinates"":[[-1.911908,43.317382],[-2.160001,43.279533],[-2.397497,43.243594]]}")
request.ContentType = "application/json; charset=utf-8"
request.Accept = "application/json, application/geo+json, application/gpx+xml, img/png; charset=utf-8"
request.ContentLength = byteArray.Length