Imports System
Class stringToString
Public Shared Sub Main()
Dim str1 As [String] = "123"
Dim str2 As [String] = "abc"
Console.WriteLine("str1 same as str2?: {0}", [Object].ReferenceEquals(str1, str2))
str2 = str1.ToString()
Console.WriteLine("str1 same as str2?: {0}", [Object].ReferenceEquals(str1, str2))
End Sub 'Main
End Class 'Sample