Цикл VBNet через чаратера в строке

Dim MyString As String = "test"

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