Function Http(c As String, rang As Byte) As String
Dim oRegExp As Object, matches As Object, i As Byte
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.MultiLine = True
.Pattern = "http.{16}"
If .test(c) = True Then
Set matches = .Execute(c)
If rang - 1 <= matches.Count - 1 Then Http = matches.Item(rang - 1)
End If
End With
End Function