Dim s As String = "     Hallo <Start>Text<Ende>was auch immer noch kommt ....."
Dim strStartMarker As String = "<Start>"
Dim strEndeMarker As String = "<Ende>"
Dim texttocut As String = _
  s.Substring(s.IndexOf(strStartMarker) + strStartMarker.Length, _
  s.IndexOf(strEndeMarker) - (s.IndexOf(strStartMarker) + _
  strStartMarker.Length))
 
Dim before As String = _
  s.Substring(0, s.IndexOf(strStartMarker) + strStartMarker.Length)
 
s = before & Microsoft.VisualBasic.Replace _
   (s, texttocut, "", s.IndexOf(strStartMarker) + _
   strStartMarker.Length + 1, 1, CompareMethod.Text)