Public Function DescriptionFromURL (ByVal URL As String) As String

    
    URL = Replace(URL, "/", " - ")
    URL = Replace(URL, "http://", "")
    URL = Replace(URL, "www.", " - ")
    URL = Replace(URL, "?", " - ")
    
    Do
        URL = Replace(URL, " -  - ", " - ")
    Loop Until Not Search(URL, " -  - ")
    
    DescriptionFromURL = URL
End Function