Data Types VB.Net

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