Generate Numbers

I created a generated number application that stores in an array with indexes 1 to 100 numbers. Generate the number to be stored at each index by summing the index and its individual digits. Example, 25 should be stored at index 17 cause 17 + 1 + 7 = 25 and 4 should be stored at index 2 cause 2 + 0 + 2 = 4. Heres the code I got so far.

Code:

---

Option Explicit

Private Sub cmdDone_Click()
    Unload Me
End Sub

Private Sub Form_Load()

Call FillArray
Call DisplayArray

End Sub

Sub FillArray()
    Dim intNumbers As Integer
    Dim intGenerate As Integer
    intGenerate = intNumbers + 1
For intNumbers = 1 To 100
    lstOutcome.AddItem intNumbers & vbTab & intGenerate
Next
End Sub

Sub DisplayArray()
    Dim intNumbers As Integer
    lstMessage.AddItem "Index" & vbTab & "Generated Number"
For intNumbers = 1 To 100
    lstOutcome.AddItem intNumbers
Next
End Sub

---

ere you go

Code:

---

Option Explicit

Dim mlngNumberArray() As Long

Private Sub cmdDone_Click()
    Unload Me
End Sub

Private Sub Form_Load()

Call FillArray
Call DisplayArray

End Sub

Sub FillArray()
'    Dim intNumbers As Integer
'    Dim intGenerate As Integer
'    intGenerate = intNumbers + 1
'    For intNumbers = 1 To 100
'        lstOutcome.AddItem intNumbers & vbTab & intGenerate
'    Next

    Dim x As Long
   
    ReDim mlngNumberArray(100)
   
    For x = 1 To 100
   
        mlngNumberArray(x) = x + IIf(x < 10, x, IIf(x < 100, CLng(Left(CStr(x), 1)) + CLng(Right(CStr(x), 1)), 1))
   
    Next ' x

End Sub

Sub DisplayArray()
    Dim intNumbers As Integer
    lstMessage.AddItem "Index" & vbTab & "Generated Number"
    For intNumbers = 1 To 100
        lstOutcome.AddItem mlngNumberArray(intNumbers)
    Next
End Sub

---