Language Basics VB.Net

Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Public Class SamplesTextElementEnumerator
   Public Shared Sub Main()
      Dim myString As String = ChrW(&HD800) & ChrW(&HDC00) & ChrW(&H0061) & ChrW(&H0300) & ChrW(&H00C6)
      Dim myTEE As TextElementEnumerator = StringInfo.GetTextElementEnumerator( myString )
      myTEE.Reset()
      While myTEE.MoveNext()
         Console.WriteLine("[{0}]:{1} {2}", myTEE.ElementIndex, myTEE.Current, myTEE.GetTextElement())
      End While
   End Sub
End Class