LinQ Using Substring

Dim result1() As String = txtBody.Text.Trim.Split("<")
            Dim result2 = (From te In result1 Where te.Contains("@HTMLRemovalURL@") Select te).ToList
'Out Put of Above Statement is  " a href=" http://sparsh180/easyshop2008/@HTMLRemovalURL@" > "
          Dim  originalString  As String =  result2(0).Remove(0, 1)
'Out Put of Above Statement is  " href=" http://sparsh180/easyshop2008/@HTMLRemovalURL@" > "

If originalString.ToLower().Contains(SystemSettingsBO.GetSettings("BusinessWebAddress").ToLower()) Then
                Dim result3 = (From te In result1 Where te.Contains("@HTMLRemovalURL@") Select " href=""" + te.Substring(te.IndexOf("@"))).ToList
'Out Put of Above Statement is  " href=" http://@HTMLRemovalURL@ "  "

     Dim  replacedString  As String  =  result3(0)

       If bodytext.Contains(originalString) Then
           bodytext = bodytext.Replace(originalString, replacedString)
       End If

      txtBody.Text = bodytext
 End If