Dim sPos As Long
Dim ePos As Long
Dim sText As String
 
sPos = InStr(1, Text1.Text, "<title>", vbTextCompare)
If sPos > 0 Then
  ePos = InStr(sPos, Text1.Text, "</title>", vbTextCompare)
  If ePos > 0 Then
    sText = Mid$(Text1.Text, sPos + 7, ePos - sPos - 7)
    Text2.Text = sText ' Inhalt in Text2 anzeigen
  End If
End If
 
sPos = InStr(1, Text1.Text, "<description>", vbTextCompare)
If sPos > 0 Then
  ePos = InStr(sPos, Text1.Text, "</description>", vbTextCompare)
  If ePos > 0 Then
    sText = Mid$(Text1.Text, sPos + 13, ePos - sPos - 13)
    Text3.Text = sText ' Inhalt in Text3 anzeigen
  End If
End If

<item></item>

Grid1.AddItem text2.text & vbTab & text3.text

<item>
  <title>Test 1</title>
  <link>http://www....</link>
</item>
<item>
  <title>Test 2</title>
  <link>http://www...2</link>
</item>
...