Imports System.Text.RegularExpressions
 
dim neuerText as String
dim altertext as string = _
  "Zeile2__AnfangGleich_4311AAss34_EndeGleich_weiterer_TextDEF"
 
neuerText= Regex.Replace(alterText, "(AnfangGleich).+(EndeGleich)", "", _
  RegexOptions.IgnoreCase Or RegexOptions.Multiline)