Option Explicit

Private Declare Function SafeArrayAllocDescriptor _
                Lib "oleaut32.dll" ( _
                ByVal cDims As Long, _
                ByRef ppsaOut() As Any) As Long
Private Declare Function SafeArrayDestroyDescriptor _
                Lib "oleaut32.dll" ( _
                ByRef pSA() As Any) As Long
Private Declare Function GetMem4 _
                Lib "msvbvm60" ( _
                ByRef pSrc As Any, _
                ByRef pDst As Any) As Long
Private Declare Function ArrPtr _
                Lib "msvbvm60" _
                Alias "VarPtr" ( _
                ByRef pArr() As Any) As Long

Private Sub Form_Load()
    Dim d() As Double
    
    ReDim d(1000)
    
    d(0) = 20000# ' Первый член
    
    MakeDoubleSequence d()
    
    ' Проверка
    Dim i As Long
    
    For i = 0 To UBound(d) - 1
        
        Debug.Assert d(i) < d(i + 1)
        
    Next
    
End Sub

Private Sub MakeDoubleSequence( _
            ByRef d() As Double)
    Dim c() As Currency
    Dim p   As Long

    SafeArrayAllocDescriptor 1, c()
    GetMem4 ByVal ArrPtr(d()), ByVal ArrPtr(c())
    
    For p = LBound(d) To UBound(d) - 1
        
        If c(p) < 0 Then
            c(p + 1) = c(p) - 0.0001@
        Else
            c(p + 1) = c(p) + 0.0001@
        End If
        
    Next
    
    SafeArrayDestroyDescriptor c()
    GetMem4 0&, ByVal ArrPtr(c())
    
End Sub