public class Test public Shared Sub Main Dim S As String = "Welcome to VB" Dim Enumerator As CharEnumerator = S.GetEnumerator While (Enumerator.MoveNext()) Console.WriteLine(Enumerator.Current()) End While End Sub End class