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
W e l c o m e t o V B