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