[VB] Get webaddress filename

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