Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = getGoogDistanceTime("תל אביב", "באר שבע", "time")

    End Sub


   

    Public Function getHTML(ByVal strURL As String) As String
        'Returns the HTML code underlying a given URL
        Dim oXH As Object
        oXH = CreateObject("msxml2.xmlhttp")
        With oXH
            .Open("get", strURL, False)
            .send()
            getHTML = .responseText
        End With
        oXH = Nothing
    End Function

    Public Function parseGoog(ByVal strSearch As String, ByVal strHTML As String) As String
        strSearch = strSearch & ":"""
        If InStr(1, strHTML, strSearch) = 0 Then parseGoog = "Not Found" : Exit Function
        parseGoog = Mid(strHTML, InStr(1, strHTML, strSearch) + Len(strSearch))
        parseGoog = Mid(parseGoog, 1, InStr(1, parseGoog, """") - 1)
    End Function


    Public Function getGoogDistanceTime(ByVal rngSAdd As String, ByVal rngEAdd As String, Optional ByVal strReturn As String = "distance") As String
        Dim sURL As String
        Dim BodyTxt As String
        sURL = "http://maps.google.com/maps?f=d&source=s_d"
        sURL = sURL & "&saddr=" & Replace(rngSAdd, " ", "+")
        sURL = sURL & "&daddr=" & Replace(rngEAdd, " ", "+")

        sURL = sURL & "&hl=en"

        BodyTxt = getHTML(sURL)

        If InStr(1, BodyTxt, strReturn, vbTextCompare) = 0 Then
            getGoogDistanceTime = "Error"
        Else
            getGoogDistanceTime = parseGoog(strReturn, BodyTxt)
        End If
    End Function