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