For Each ch As Char In "voodoo".ToCharArray Next
Convert For to Foreach:
For i As Integer = LBound("voodoo".ToCharArray) To UBound("voodoo".ToCharArray) Step 1 Dim ch As Char = "voodoo".ToCharArray(i) Next
Must be:
For i As Integer = LBound("voodoo".ToCharArray) To UBound("voodoo".ToCharArray) Step 1 Dim ch As Char = "voodoo".ToCharArray()(i) Next