Imports System.Text
Module Tester
Sub Main()
Dim string1 As String = "hello"
Dim i As Integer
Dim charArray() As Char = string1.ToCharArray()
' display contents of charArray
For i = 0 To charArray.Length - 1
Console.WriteLine(charArray(i))
Next
End Sub ' Main
End Module
h
e
l
o