System VB.Net by API

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