Imports System
Class Sample
Public Shared Sub Main()
Dim str As String = "012asdf789"
Dim arr() As Char
arr = str.ToCharArray(3, 4)
Console.Write(arr)
Dim c As Char
For Each c In arr
Console.WriteLine(c)
Next c
End Sub 'Main
End Class 'Sample