Imports System
Imports System.Text
Class Sample
Public Shared Sub Main()
Dim s1 As [String] = "MyTest"
Dim s2 As [String] = New StringBuilder().Append("My").Append("Test").ToString()
Dim s3 As [String] = [String].Intern(s2)
Console.WriteLine("s1 = '{0}'", s1)
Console.WriteLine("s2 = '{0}'", s2)
Console.WriteLine("s3 = '{0}'", s3)
Console.WriteLine("Is s2 the same reference as s1?: {0}", s2 Is s1)
Console.WriteLine("Is s3 the same reference as s1?: {0}", s3 Is s1)
End Sub 'Main
End Class 'Sample