20.6.13.Negative Unicode Category or Unicode Block: \P{}
Imports System.Text.RegularExpressions
Module Example Public Sub Main() Dim pattern As String = "(\P{Sc})+"
Dim values() As String = { "$111,011.11", "1,111,111.11", "73", "120"}
For Each value As String In values
Console.WriteLine(Regex.Match(value, pattern).Value)
Next End Sub End Module