How to convert an Integer in Array

I find a conversion to a unicode string and subsequent split on Chr(0) is an efficient way to create an array of individual characters.

Dim str As String, arr As Variant, i as long
str = StrConv(CStr(1927), vbUnicode)
arr = Split(str, Chr(0))
redim preserve arr(ubound(arr)-1)
For i = LBound(arr) To UBound(arr)
    Debug.Print arr(i)
Next i

Debug.Print Join(arr, vbNullString)

You can convert the integer to a string as follows :

cstr(int)

then you can extract your single numbers as char from the string that you created as follows :

Mid(s, index, 1)

Check this link for more documentation.

This is a possible solution:

Option Explicit

Public Sub SplitIntToArray()

    Dim inputString As String
    inputString = "1927"

    Dim cnt         As Long
    Dim myArr       As Variant
    ReDim myArr(Len(inputString) - 1)

    For cnt = LBound(myArr) To UBound(myArr)
        myArr(cnt) = Mid(inputString, cnt + 1, 1)
    Next cnt        

    For cnt = LBound(myArr) To UBound(myArr)
        Debug.Print myArr(cnt)
    Next cnt

End Sub

It takes the inputString and based on its length it dimensionzes the myArr. Then it loops the newly dimensionized array and it assigns Mid(inputString, cnt+1,1) to every part of the array. THe cnt+1 is needed, because the first char of the string needs to be in the 0th element of the array, as the arrays start at zero.

You can also make a function, taking string and returning array:

Public Sub SplitIntToArray()

    Dim inputString As String
    Dim cnt         As Long
    Dim myArr       As Variant

    myArr = stringToArray("1927")

    For cnt = LBound(myArr) To UBound(myArr)
        Debug.Print myArr(cnt)
    Next cnt

End Sub

Public Function stringToArray(inputString As String) As Variant

    Dim cnt         As Long
    Dim returnArray As Variant

    If Len(inputString) = 0 Then
        stringToArray = Array()
        Exit Function
    End If

    ReDim returnArray(Len(inputString) - 1)

    For cnt = LBound(returnArray) To UBound(returnArray)
        returnArray(cnt) = Mid(inputString, cnt + 1, 1)
    Next cnt

    stringToArray = returnArray

End Function

Here's another solution that doesn't require looping to assign the values to an array, or from an array to a string.

Sub Ex()
    Dim Integers() As Byte
    Dim i          As Long
    Integers = StrConv("0123456789", vbFromUnicode)

    'Print the values out, already in an array
    For i = LBound(Integers) To UBound(Integers)
        Debug.Print Chr$(Integers(i))
    Next

    'Put back into a string
    Dim MyInts As String
    MyInts = StrConv(Integers, vbUnicode)
    Debug.Print MyInts
End Sub

No one appears to have used the mathematical route yet. So let me do that.

Sub numArr()
    Dim num As Integer
    Dim arr() As Integer
    num = 1927
    i = 0

    Do
        i = i + 1
        ReDim Preserve arr(i)
        arr(i) = num Mod 10
        num = num \ 10
    Loop While num > 0

End Sub

This one was more fun writing.