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