[a_axe]

Юрий_Нд, саму переменную - никак, а значение переменной Long присвоить элементу массива можно без проблем, даже не используя функцию cDbl()

Код:

Sub nm1()
Dim dblA(1 To 2) As Double
Dim lngB As Long
lngB = 2147483647#
       
dblA(1) = lngB

End Sub

ну или

Код:

Sub nm()
Dim dblA(1 To 2) As Double
Dim lngB As Long
lngB = 2147483647#
      
dblA(1) = CDbl(lngB)

End Sub