Como percorrer todos os caracteres de uma string usando um iterador IEnumerator

'Este exemplo mostra como obter um iterador usando o
'método GetEnumerator e usá-lo para percorrer os 
'caracteres de uma string

Module Module1
  Sub Main()
    Dim frase As String = "Veja esta frase"
    Dim enumerador As IEnumerator = frase.GetEnumerator()

    While enumerador.MoveNext()
      Console.Write(enumerador.Current & "  ")
    End While

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module