Delete the text

[AlexVorn]

How to delete the text between "<>" and "<>" if the text length is less 30 characters?
For example text contains:

<>Home<>
<>U.S.<>
<>World<>
<>Politics<>
<>Business<>

<>Health<>
<>SciTech<>
<>Entertainment<>

<>Virgin Galactic is offering tickets aboard SpaceShipTwo spaceliners for an initial price of about $200,000, though Branson said the cost is expected to drop after the first five years of operations.<>

<>The space tourism firm plans to eventual launch flights out of a terminal at New Mexico's Spaceport America, with additional trips through the aurora borealis to be staged from Kiruna, Sweden.<>

[vbasicgirl]

Where is this text coming from and does the text length mean the text between the <> or including ?

Casey.

[AlexVorn]

text length means the text between.

[bigMeUp]

AlexVorn: I think you may be over-thinking the problem, as a dead-simple solution would be:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim p() As String = New String() _
            {"<>Home<>", "<>U.S.<>", "<>World<>", "<>Politics<>", "<>Business<>", "<>Health<>", _
            "<>SciTech<>", "<>Entertainment<>", _
            "<>Virgin Galactic is offering tickets aboard SpaceShipTwo spaceliners for an initial price of about $200,000, though Branson said the cost is expected to drop after the first five years of operations.<>", _
            "<>The space tourism firm plans to eventual launch flights out of a terminal at New Mexico's Spaceport America, with additional trips through the aurora borealis to be staged from Kiruna, Sweden.<>"}
        For i As Int32 = 0 To p.Length - 1
            If p(i).Length < 34 Then p(i) = "<><>"
            textbox1.AppendText(p(i) & vbNewLine)
        Next
    End Sub

Also, vbasicgirl's question is legitimate; is part of your problem how to get scan through a mass of text, or (as I have assumed) are the strings already in an array?

[AlexVorn]

@bigMeUp
Some Syntax errors are displaying! I cant debug the code.

[bigMeUp]

What are the syntax errors?

[AlexVorn]

@bigMeUp look here:
http://alexvorn2.googlepages.com/syntaxerror.GIF

[bigMeUp]

there is no space underscore after your Dim p() As String = New String. It should be, Dim p() As String = New String() _

Also, don't leave empty lines after each underscore (which is the line-continuation character).