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