Imports System.Text
Module Example
Public Sub Main()
Dim title As String = "A Tale of Two Cities"
Dim chEnum As CharEnumerator = title.GetEnumerator()
Dim ctr As Integer = 1
Do While chEnum.MoveNext()
Console.WriteLine(chEnum.Current & " ")
ctr += 1
Loop
End Sub
End Module