The following function will do the trick:
Public Function GetFileName(ByVal sIn As String) As String
Const cPat As String = "(?<=>)(.*?)(?=</A>)"
Try
dim rx As New System.Text.RegularExpressions.Regex(cPat)
Return (rx.Match(sIn).ToString)
Catch ex As Exception
Stop
End Try
End Function
'=========
The first part of the pattern establishes the start point for the match. The term ?<= defines that a match must be preceded by the supplied value -in this case.
The .* in the second part is what return you the file name. It matches any number of any character, the ? suffix tells it not to be greedy, that it should let the next expression try for a match first.
The third expression looks forward for the string </A>, but doesn't include it in the match.
If you want to cater for lower case, replace the /A with /[Aa]