Soru For Döngüsü İçinden Dizi Oluşturma

[kiratm]

Herkese merhaba,

Aşağıda basit bir for döngüsü yer almaktadır. Bu döngü sonucu i değişkeninin sırasıyla 1'den 20'ye kadar aldığı değerleri bir dizi içine nasıl kaydedebilirim? Yani bu i değerlerinden bir dizi oluşturmak istiyorum.
Yardımcı olabilirseniz sevinirim.

Sub ornek()
Dim i As Integer
Dim dizi()

For i = 1 To 20
i = i
Next i

End Sub

 

[muratboz06]

Sub DiziOlustur()
    Dim arr(1 To 20) As Variant
    Dim i As Integer
    
   'dizi oluştur
    For i = 1 To 20
        arr(i) = i
    Next i
    
    'dizideki verileri oku
    For i = 1 To UBound(arr)
        Debug.Print arr(i)
    Next i
    
End Sub