Public Function String_LastElement(ByVal sText as String, ByVal sDelimiter as _
  String)
Dim n as Long
 
For n = 1 to Len(sText)
  If Left(Right(sText, n), 1) = sDelimiter then
    String_LastElement = Right(sText, n - 1)
    Exit Function
  End if
Next n
 
End Function

sFileTitle = String_LastElement(strURL, "/")