Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "Clone() Test"
        Dim clonedString As String
        clonedString = str.Clone()
        MsgBox(clonedString)
    End Sub
End Class