Module Module1
Sub Main()
Dim value As String =
"test"
' Get char array from string.
Dim array() As Char = value.ToCharArray()
' Loop and print the chars.
For Each element As Char In array
Console.WriteLine(
"CHAR: {0}", element)
Next
End Sub
End Module
CHAR: t
CHAR: e
CHAR: s
CHAR: t