Imports System
Public Class MainClass
Shared Sub Main()
Dim string1 As String = "hello"
Dim string2 As String = "GOOD BYE "
Dim string3 As String = " spaces "
Dim i As Integer
Dim charArray() As Char = string1.ToCharArray()
Console.WriteLine("string1 = " & string1 & vbCrLf & "string2 = " & _
string2 & vbCrLf & "string3 = " & string3)
For i = 0 To charArray.Length - 1
Console.WriteLine(charArray(i))
Next
End Sub ' Main
End Class