Option Strict On
Imports System.Text
Public Module modMain
Public Sub Main()
Dim chars() As Char = {"T"c,"h"c,"i"c,"s"c," "c,"i"c,"s"c, _
" "c,"a"c,"n"c," "c,"a"c,"r"c,"r"c,"a"c, _
"y"c," "c,"o"c,"f"c," "c,"C"c,"h"c, _
"a"c,"r"c,"s"c}
Dim convertedChars As New StringBuilder
For Each ch As Char in chars
convertedChars.Append(ch)
Next
Dim displayString As String = convertedChars.ToString()
Console.WriteLine(displayString)
End Sub
End Module
This is an array of Chars