Cykl VBNET za pośrednictwem szaratników w ciągu

Dim MyString As String = "test"

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