Dim a As String = "Test String"
Dim b As String = String.Copy(a) ' New string