Characters a surrogate pair
Imports System Imports Microsoft.VisualBasic Class Sample Public Shared Sub Main() Dim cHigh As Char = ChrW(&HD800) Dim cLow As Char = ChrW(&HDC00) Dim s1 = New [String](New Char() {"a"c, ChrW(&HD800), ChrW(&HDC00), "z"c}) Console.WriteLine("C1) cHigh and cLow? - {0}", [Char].IsSurrogatePair(cHigh, cLow)) Console.WriteLine("C2) s1(0) and s1(1)? - {0}", [Char].IsSurrogatePair(s1, 0)) Console.WriteLine("C3) s1(1) and s1(2)? - {0}", [Char].IsSurrogatePair(s1, 1)) Console.WriteLine("C4) s1(2) and s1(3)? - {0}", [Char].IsSurrogatePair(s1, 2)) End Sub 'Main End Class 'Sample