Private Sub Command1_Click()
    Dim Textzeile() As String
    Dim i As Integer
    Dim StartPos As Integer
    Dim EndPos As Integer
 
    Textzeile = Split(Text1.Text, vbCrLf)
 
    For i = 0 To UBound(Textzeile)
        If Textzeile(i) = "<!-- result" Then
            StartPos = i
        End If
        If StartPos <> vbNull Then
            If Textzeile(i) = "-->" Then
                EndPos = i
            End If
        End If
    Next i
 
    If StartPos = vbNull Or EndPos = vbNull Then
        MsgBox "Fehler: Resultat nicht gefunden!"
        Exit Sub
    End If
 
    For i = StartPos + 1 To EndPos - 1
        If Textzeile(i) <> "" And Textzeile(i) <> vbNull Then
            Text2.Text = Text2.Text & Textzeile(i) & vbCrLf
        End If
    Next i
End Sub