Extraire chaîne de caractères dans du texte (ParseBetween)

'########################################################
' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
'########################################################

Private Function ParseBetween(Source$, Before$, After$) As String()
    Dim Results As New List(Of String)
    Dim T As New List(Of String)
    With T
        .AddRange(System.Text.RegularExpressions.Regex.Split(Source, Before))
        .RemoveAt(0)
        For Each Item$ In T
           Results.Add(System.Text.RegularExpressions.Regex.Split(Item, After)(0))
        Next
    End With
    Return Results.ToArray
End Function

Private Function ParseBetween(Source$, Before$, After$, Offset%) As String
    If String.IsNullOrEmpty(Source) Then
        Return String.Empty
    End If
    If Source.Contains(Before) = True Then
        Dim Result$ = Source.Substring(Source.IndexOf(Before) + Offset)
        If Result.Contains(After) = True Then
            If Not String.IsNullOrEmpty(After) Then
                Result = Result.Substring(0, Result.IndexOf(After))
            End If
        End If
        Return Result
    Else
        Return String.Empty
    End If
End Function


'############################### Comment utiliser la première fonction qui retourne un tableau de String ###########################

'On déclare une variable de type String et on y affecte du texte pour pouvoir le parcourir avec la fonction plus bas
Dim TextToParse = "<div> <span id=""programme"">Programme TF1</span> <span>Mes infos</span> </div>" & vbNewLine & _
                  "<div> <span id=""programme"">Programme fr2</span> <span>Mes infos</span> </div>"

'Il peut exister plus occurences c'est pour cela qu'on utilise la fonction qui retourne un tableau de String
For Each occur In ParseBetween(TextToParse, "<span id=""programme"">", "</span>")
    MsgBox(occur)
Next

'Retourne les résultats suivants :
'Programme TF1
'Programme fr2