Function GetWebaddressFileName(s As String) As String
    On Error Resume Next
Dim i As Integer, b As Integer

    i = InStrRev(s, "/")
    b = InStrRev(s, ".")
    
    GetWebaddressFileName = Mid$(s, i + 1, (b - i) + 3)
End Function