waarom is dit fout ANWB code

[dinoshop]

het deel tussen de trema's is dus fout maar waarom?

Public Function AfstandANWB(strName1 As String, strName2 As String) As String
    Dim objAll As Object
    Dim objDiv As Object
    With CreateObject("GoogleChroom.Application")
        .Visible = True
        .Navigate "http://www.anwb.nl/verkeer/routeplanner?name1=" & strName1 & "&modality1=car&routeType1=fast&name2=" & strName2    'am_2014
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        ''Application.Wait (Now() + TimeValue("00:00:01"))
        For Each objDiv In .Document.GetElementsByTagName("div")
            If objDiv.ClassName = "informatie routeInfo" Then
                For Each objAll In objDiv.GetElementsByTagName("*")
                    If objAll.ClassName = "distance" Then
                        '                        AfstandANWB = objAll.getAttribute("data-distance")  'lengte in meters, waarde zonder eenheid
                        AfstandANWB = objAll.InnerText    'lengte in meters/kilometers, waarde met eenheid
                    End If
                Next
            End If
        Next
        .Quit
    End With
End Function

 

[OctaFish]

Plak de output ens rechtstreeks in een webbrowser, dan zie je gelijk waar het fout gaat.