Ciclo VBNET através de charaters em string

Dim MyString As String = "test"

For Each Character As Char in MyString
    ' Count Character
Next
Salty Joe