Private Sub Command1_Click()
    Dim I As Long, J() As Long, K As Long
    
    ReDim J(500000)
    K = 1
    
    For I = 1 To 500000
        If I = 3002 Then K = 1
        If I = 3000 Then
            I = 3001
            K = 2
        End If
        J(I) = J(I - K) + 1
    Next I
    MsgBox "asfds"
End Sub