Imports System
Public Class StringToIntArrayOfDigits_VB_NET
Public Shared Function StringToIntArrayOfDigits(ByVal number As String) As Integer()
Dim digits As Integer() = New Integer(number.Length - 1) {}
For i As Integer = 0 To number.Length - 1
digits(i) = CInt(Char.GetNumericValue(number(i)))
Next
Return digits
End Function
Public Shared Sub Main(ByVal args As String())
Dim number As String = "23089"
Dim digits As Integer() = StringToIntArrayOfDigits(number)
For Each digit As Integer In digits
Console.Write(digit & " ")
Next
End Sub
End Class
' run:
'
' 2 3 0 8 9
'