Module Example
Public Sub Main()
For ctr As Integer = Convert.ToInt32(Char.MinValue) To Convert.ToInt32(Char.MaxValue)
Dim ch As Char = ChrW(ctr)
If Char.IsSeparator(ch) Then
Console.WriteLine("\u{0:X4} ({1})", AscW(ch), Char.GetUnicodeCategory(ch).ToString())
End If
Next
End Sub
End Module