Private Sub Command1_Click()
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div class\=\"col_titulo col_superior\"\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub

sString = "Hola ""amigo"" xD"

Option Explicit
 
Public Function Get_Text(ByVal sText As String) As Collection
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
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")
 
    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 Form_Load()
Dim vItem                   As Variant
Dim S                       As String
    S = "<div class=""col_titulo col_superior"" >¡¡Que vivan</div>" & vbNewLine & _
        "<div class=""col_titulo col_superior"" >las</div>" & vbNewLine & _
        "<div class=""col_titulo col_superior"" >Ranas! :D</div>"
 
    For Each vItem In Get_Text(S)
        Debug.Print vItem
    Next vItem
End Sub

¡¡Que vivan
las
Ranas! :D