Dim server As BASICATLSERVERLib.TheCoClass
Dim accessor As BASICATLSERVERLib.IRawArrayAccess

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If server Is Nothing Then
        Set server = New BASICATLSERVERLib.TheCoClass
        Set accessor = server
    End If
    Dim i As Integer
    Dim arr(1 To 5) As Double
    Target.Offset(0, 1).Value = "previous"
    accessor.getRawArray 5, arr(1)
    For i = 1 To 5
        Target.Offset(i, 1) = arr(i)
        arr(i) = Target.Offset(i, 0).Value
    Next i
    accessor.putRawArray 5, arr(1)
End Sub