Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "4,6,79,8,100,2,0,9,1081"
Dim arr As Integer() = Array.ConvertAll(str.Split(","c), Function(s) Integer.Parse(s))
For Each item In arr
Console.WriteLine(item)
Next
End Sub
End Class
' run:
'
' 4
' 6
' 79
' 8
' 100
' 2
' 0
' 9
' 1081
'