How to create an empty array of Double

I trying to create an empty/defined array of Double which would reflect as Double(0, -1).

I'm able to create one for an array of String, Variant and Byte:

  Dim arr_variant() As Variant
  arr_variant = Array()        ' Variant(0 to -1) '

  Dim arr_string() As String
  arr_string = Split(Empty)    ' String(0 to -1) '

  Dim arr_byte() As Byte
  arr_byte = ""                ' Byte(0 to -1) '

  Dim arr_double() As Double
  arr_double = ???             ' Double(0 to -1) '

, but still haven't found a way for Double.

Maybe with LSet or with a native function?