Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      For Each m As System.Text.RegularExpressions.Match In New _
      System.Text.RegularExpressions.Regex("(?<=<div.*>)(.*)(?=</div>)", _
      RegexOptions.Multiline).Matches(TextBox1.Text)
         Debug.WriteLine(m.Value & " bei " & m.Index)
      Next
   End Sub