Sub Extraer_Url(url_Path As String, Expresion As String)
    'Variables para usar RegExp
    Dim o_RegExp As RegExp
    Dim o_Match As Match
    Dim o_Matches As MatchCollection
   'Variables Fso para abrir y leer el archivo en la variable contenido
   Dim Contenido As String
   'Lee el contenido del fichero y lo almacena en la var
   Contenido = Text2.Text
   'crea nuevo objeto RegExp
   Set o_RegExp = New RegExp
   ' Para que no distinga mayúsculas de minúsculas
   o_RegExp.IgnoreCase = True
   o_RegExp.Global = True
   ' A la propiedad Pattern se le pasa la Expresión regular
   o_RegExp.Pattern = Expresion
   'Ejecuta y busca
   Set o_Matches = o_RegExp.Execute(Contenido)
   ' Recorre en la colección
   For Each o_Match In o_Matches
      'Agrega las url al control List
      List1.AddItem Replace(o_Match.Value, Chr(34), vbNullString)
   Next
 
End Sub
 
Private Sub Command1_Click()
    Text2.Text = WebBrowser1.Document.documentElement.innerHTML
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div align\=\""justify""\\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com")
End Sub
 

Option Explicit
 
Public Function Get_Text(ByVal sText As String, ByVal sPatern As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
 
    Set oRegExp = CreateObject("VBScript.RegExp") 'Evitamos la referencia
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Q = 0 To oMatches.Count - 1
        Set oMatch = oMatches(Q)
        cTemp.Add oMatch.SubMatches(0)
    Next Q
 
    Set Get_Text = cTemp
End Function
Private Sub Command1_Click()
    Text2.Text = WebBrowser1.Document.documentElement.innerHTML
    Dim vItem                   As Variant
Dim S                       As String
    S = Text2.Text
    For Each vItem In Get_Text(S, "\<div align\=""justify""\>(.+)\<\/div\>")
        MsgBox vItem
    Next vItem
    Text1.Text = List1.List(0)
    List1.Clear
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.web.com/")
End Sub