Google Maps Driving Times

Made a couple of changes to this function that's called which seems to make it work now:

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

Dom