Public Function GetPathFromHttp(strSource As String) As String Dim re As RegExp Dim Matches As MatchCollection Set re = New RegExp re.Global = True re.MultiLine = True re.Pattern = "HREF.*\d{1,3}(.*)""" Set Matches = re.Execute(strSource) If Matches.Count Then GetPathFromHttp = Matches(0).SubMatches(0) End If End Function