VBNET Ciclo a través de Charaters en String

Dim MyString As String = "test"

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