Imports System
Public Class MainClass
Shared Sub Main()
Dim characterArray As Char()
Dim quotes As Char = ChrW(34)
Dim originalString, string1, string2, string3, _
string4 As String
characterArray = New Char() {"w"c, "w"c, "w"c, _
"."c, "j"c, "a"c, "v"c, "a"c, "2"c,"s"c,"."c,"o"c,"m"c}
' string initialization
originalString = "www.rntsoft.com"
string1 = originalString
string2 = New String(characterArray)
string3 = New String(characterArray, 6, 3)
string4 = New String("C"c, 5)
Console.WriteLine( "string1 = " & quotes & string1 & quotes & _
vbCrLf & "string2 = " & quotes & string2 & quotes & _
vbCrLf & "string3 = " & quotes & string3 & quotes & _
vbCrLf & "string4 = " & quotes & string4 & quotes )
End Sub ' Main
End Class