Mensajes

.
Si solo necesitas una extracción haz asi:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Function Get_Text(ByVal sText As String) As String
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
   
    Set oRegExp = CreateObject("VBScript.RegExp")

    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With

    Set oMatches = oRegExp.Execute(sText)
    Set oMatch = oMatches(0)

    Get_Text = oMatch.SubMatches(0)
End Function

Private Sub Form_Load()
Dim S                       As String
    S = "<div class=""col_titulo col_superior"" > ¡Vivan las ranas!   </div>"
   
    MsgBox Get_Text(S)
End Sub

Personalmente ya no te voy a ayudar mas en este hilo, te estamos haciendo los deberes de una manera exagerada.
Creo que debes estudiar mucho, tienes algunos errores muy basicos.
Si te fijas, con las funciones que te di y un poco de sentido comun, no te deberia de costar hacerlo.

DoEvents!

[Debug.Print]

Jajajajajajajajaja

Debug.Print te lo imprime en una ventana llamada Inmediato (esta abajo) cuando lo ejecutas.

No obstante puedes cambiar el Debug.Print por MsgBox si lo deseas.

DoEvents!

[raul]

Creo que no has visto mi respuesta...
Como bien te dijo el feo de raul, usa SubMatches.

DoEvents!

[EDIT]

EDIT: No vi tu respuesta raul!

Normal, las comillas entre comillas se ponen dobles comillas... (que bien explico eh?  )

Un ejemplo:

Hola "amigo" xD

Seria:

Código (vb) [Seleccionar] Expandir

sString = "Hola ""amigo"" xD"



Supongo que buscabas algo asi:

Código (vb) [Seleccionar] Expandir

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

Resultado :

Código [Seleccionar] Expandir

¡¡Que vivan
las
Ranas! :D



Yo que tu me plantearia aprender RegExp en vez de preguntar cada duda que tengas...

DoEvents!

si pinchas con la mano en el pecho y estiras hasta una esquina se hace cachitos

Que interesante! 

DoEvents!

[Boolean]

Si no pones nada en una variable Boolean cuenta como True, mira:

Código (vb) [Seleccionar] Expandir

If A = True Then
Es lo mismo que :

Código (vb) [Seleccionar] Expandir

If A Then

Y respecto a lo segundo, no, no originaria conflicto, lo único que haces con LBound() es obtener el index mas pequeño del array(en este caso de controles) y con UBound() el mas alto.

DoEvents!

.
Buff, hay muchisimas cosas para hacer: un tres en raya, una calculadora...
Lo tipico vamos, aunque tambien se te puede ocurrir alguna idea a ti.

DoEvents!

no soy tan listo como para de buenas a primeras hacerme un cripter yo solito, y menos runtime que tendría que hacerme también el runpe

No pasa nada, entonces empieza por cosas más simples...

DoEvents!

[@Reto 5]

@Reto 5
Esta es la mia:

Código [Seleccionar] Expandir

^[\w\._\-]{2,}@[\w\._\-]{2,}\.[a-zA-Z]{2,4}(\.[a-zA-Z]{2,4})?$
Se que no incluye tantas validaciones como la de raul338 pero buneo...

PD: raul338 a ver si un dia te pillo por el msn y me resuelves algna duda...

DoEvents!

Como es eso de pseudocodigo?
Google...
http://es.wikipedia.org/wiki/Pseudoc%C3%B3digo

Código [Seleccionar] Expandir


    x = Número ingresado
   
   Si x < 10 Entonces
    Si x = 2 o x = 5  Entonces
      Verdadero
      Salir
    Sino Si x=1
      Salir
    Fin Si
   Sino
    y = x mod 10
    Si y = 1 o 3 o 7 o 9 Entonces
      Para 3 hasta raiz cuadrada de x saltando de 2 en 2
      Si (x mod y) = 0 Entonces Falso y Salir
      Fin Para
           Verdadero
Fin Si
   Fin Si

Asi mucho mejor.

DoEvents!