Distance and time between two locations

Imports System.Net

Public Class Form1
    Private Web As Net.WebClient

    Private Structure struct_Info
        Public Origine As String
        Public destination As String
        Public distance As Single
        Public duration As Integer
    End Structure

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Web = New WebClient
        Web.Encoding = System.Text.Encoding.UTF8
        Dim Info As struct_Info

        Info = Distance("ol3 5rq", "ol8 1xu")

        MsgBox("Origine: " & Info.Origine & vbCrLf & _
            "Destination: " & Info.destination & vbCrLf & _
            "Distance: " & Info.distance & " m" & vbCrLf & _
            "Duration: " & Info.duration & " s")
    End Sub

    Private Function Distance(PostCode1 As String, PostCode2 As String) As struct_Info
        'mode=driving
        'mode=bicycling
        'mode=transit
        'mode=walking
        Dim mode As String = "driving"
        Dim url As String = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" & PostCode1 & "&destinations=" & PostCode2 & "&mode=" & mode & "&language=en-EN&sensor=false"
        Dim data As String = Web.DownloadString(url)
        data = data.Replace("(", "") : data = data.Replace(")", "") : data = data.Replace("[", "") : data = data.Replace("]", "") : data = data.Replace("{", "") : data = data.Replace("}", "") : data = data.Replace(":", "")
        Dim splitted() As String = Split(data, """")
        Dim result As struct_Info
        With result
            .Origine = splitted(7)
            .destination = splitted(3)
            .distance = CSng(Val(splitted(20)))
            .duration = CInt(Val(splitted(28)))
        End With

        Return result
    End Function
End Class