Updating text app freezes

[dwains]

Being as I need the textbox1 to display the response as string shouldn't it be like so?

            Dim response As String = content
            response = content.Remove(0, 1)
            response = response.Replace("<EOF>", "").Trim

            If TextBox1.InvokeRequired Then
                Dim d As New SetTextCallback(AddressOf SetText)
                TextBox1.Invoke(d, New Object() {response})
            Else
                TextBox1.Text = response
            End If