Help with formatting a string..

There are many ways to do this and I'm sure that mine is probably not the best... But that's what you get for running on 2 hours sleep and eating nothing but chocolate coffee beans all day to stay awake. Any way, for this example you'll need a form with two text boxes labeled txtSource and txtFound, then you'll need a command button to execute the code.

Code:

Dim i_Search As Integer, i_SearchEnd As Integer, isFirstLoop As Boolean i_Search = 1 isFirstLoop = True Do While i_Search <> 0 i_Search = InStr(IIf(isFirstLoop = True, i_Search, i_Search + 1), txtSource.Text, "<table") If i_Search <> 0 Then i_SearchEnd = InStr(i_Search, txtSource.Text, "</table>") txtFound.Text = txtFound.Text & Mid(txtSource.Text, i_Search, (Len(txtSource.Text) - i_Search) + 8) End If isFirstLoop = False Loop