Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim str1 As String = "CopyTo() sample"

        Dim chrs(5) As Char

        str1.CopyTo(0, chrs, 0, 6)

        MsgBox(chrs(0) + chrs(1) + chrs(2) + chrs(3) + chrs(4) + chrs(5))

    End Sub

End Class