public class Test public Shared Sub Main Dim str1, str2 As String str1 = "some text" str2 = str1 str2 = String.Copy(str1) Console.WriteLine(str1 & vbCrLf & str2) End Sub End class
some text some text