Dim StR As String
Dim LatLng(16) As String
' StR = "path="&LatLng(1)&","&LatLng(8)&"|"&LatLng(2)&","&LatLng(9)&"&interpolate=True&key=AIzaSyC324Thq0DI1l_xPmyQP7LYU3n1rkEOkxI"
StR = "path="&LatLng(1)&","&LatLng(8)&"|"&LatLng(2)&","&LatLng(9)&"|"&LatLng(3)&","&LatLng(10)&"|"&LatLng(4)&","&LatLng(11)&"|"&LatLng(5)&","&LatLng(12)&"|"&LatLng(6)&","&LatLng(13)&"|"&LatLng(7)&","&LatLng(14)&"&interpolate=True&key=Your Key Here"
Log("Post String: "&CRLF&StR)
Dim j1 As HttpJob
j1.Initialize("", Me)
j1.PostString("https://roads.googleapis.com/v1/snapToRoads",StR)
Wait For (j1) JobDone(j2 As HttpJob)
If j2.Success Then
Log(j2.GetString)
End If