Imports System

Imports System.Text.RegularExpressions

​

Public Class Program

​

    Private Shared _invalidXMLChars As Regex = New Regex("(?<![\uD800-\uDBFF])[\uDC00-\uDFFF]|[\uD800-\uDBFF](?![\uDC00-\uDFFF])|[\x00-\x08\x0B\x0C\x0E-\x1F\x7F-\x9F\uFEFF\uFFFE\uFFFF]", RegexOptions.Compiled)

​

    Public Shared Sub Main()

        Dim text as string = "<PROFILE>With its distinct Filipino •flavor, StyleBible.ph focuses on the local scene, showcasing local trends in fashion and beauty, championing local design talent while also featuring the hottest style at parties around town.</PROFILE><DATE_ESTABLISHED /><DATE_CREATED>2013-06-24 22:04:46.000</DATE_CREATED><DATE_UPDATED>2014-01-03 02:43:37.000</DATE_UPDATED><DATE_VERIFIED /><CURRENCY_TYPE>132</CURRENCY_TYPE><COPY_PRICE /><SUBS_PRICE /><ADDRESS_ID>251830</ADDRESS_ID><TELEPHONE>+ 63  2 4518888</TELEPHONE><FAX>+ 63  2 3988050</FAX><EMAIL>risa.desagun@summitmedia.com.ph</EMAIL><WWW>https://www.summitmedia.com.ph/digital/stylebible</WWW><PREF_DELIVERY_TYPE>4</PREF_DELIVERY_TYPE></PRN_OUTLET_ROW><PRN_OUTLET_ROW><OTL_ID>16085911</OTL_ID><PARENT_OTL_ID /><HAS_CHILDREN>0</HAS_CHILDREN><NAME>NEWLIKE.FR</NAME><SORT_NAME>Newlike.Fr</SORT_NAME><STATUS_TYPE>4</STATUS_TYPE><OUTLET_TYPE>27</OUTLET_TYPE><PRODUCT_TYPE>19</PRODUCT_TYPE><INDUSTRY_TYPE>9</INDUSTRY_TYPE><FREQUENCY_TYPE /><REG_FOCUS_TYPE>2</REG_FOCUS_TYPE><STAT_CALL_LETTERS /><DMA_GEO_ID /><CIRCULATION /><PROFILE>Magazine féminin généraliste en ligne dédié aux dernières tendances mode, beauté, cuisine, loisirs, bien être, société. Edité par CANALMAIL.ref/nr</PROFILE>"

        Console.WriteLine(_invalidXMLChars.Replace(text, ""))

    End Sub

End Class

​