Converting Array to Integers

    Dim ai(1 To 5) As Integer
    Dim i As Long
    
    ai(1) = 1
    ai(2) = 2
    ai(3) = 3
    ai(4) = 4
    ai(5) = 5
    
    i = WorksheetFunction.SumProduct(ai, Array(10000, 1000, 100, 10, 1))
    MsgBox i