for each item in variable_de_tipo_String.split(controlchars.quote) : msgbox(item) : next

http://1.bp.blogspot.com/-NhL7eyZF_bM/UC6AO7LanyI/AAAAAAAADNw/VkfXa-fNxpA/s1600/glucides-vitamines-fruits.jpg
http://1.bp.blogspot.com/-NhL7eyZF_bM/UC6AO7LanyI/AAAAAAAADNw/VkfXa-fNxpA/s1600/glucides-vitamines-fruits11.jpg

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim str As String = <a><![CDATA[<a href="http://1.bp.blogspot.com/-NhL7eyZF_bM/UC6AO7LanyI/AAAAAAAADNw/VkfXa-fNxpA/s1600/glucides-vitamines-fruits.jpg"/> <a href="http://1.bp.blogspot.com/-NhL7eyZF_bM/UC6AO7LanyI/AAAAAAAADNw/VkfXa-fNxpA/s1600/glucides-vitamines-fruits11.jpg"/>]]></a>.Value
        Dim regex As String = <a><![CDATA[(http://|https://|www)([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&amp;\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?]]></a>.Value
 
        For Each match In RegEx_Matches_To_List(str, regex) : MsgBox(match) : Next
 
    End Sub
 
#Region " RegEx Matches To List "
 
    ' [ RegEx Matches To List Function ]
    '
    ' // By Elektro H@cker
 
    Private Function RegEx_Matches_To_List(ByVal str As String, ByVal RegEx_Pattern As String, _
                                           Optional ByVal Group As Int32 = 0, _
                                           Optional ByVal IgnoreCase As Boolean = True) _
                                           As List(Of String)
 
        Dim regex_option As System.Text.RegularExpressions.RegexOptions
 
        If IgnoreCase Then regex_option = System.Text.RegularExpressions.RegexOptions.IgnoreCase _
        Else regex_option = System.Text.RegularExpressions.RegexOptions.None
 
        Dim match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(str, RegEx_Pattern, regex_option)
        Dim Matches_List As New List(Of String)
 
        Do While match.Success
            Matches_List.Add(match.Groups(Group).ToString)
            match = match.NextMatch()
            Application.DoEvents()
        Loop
 
        Return Matches_List
 
    End Function
 
#End Region
 
End Class

#include <iostream>
#include <string.h>
 
using namespace std;
 
int main()
{
    char palabra[30];
 
    do{
      cout<<"Ingresa una cadena: ";
      cin.getline(palabra, 30, '\n');
     }
      while(strchr(palabra, 32));
 
    cin.get();
    return 0;
}