Option Base  1 
Dim dan( 3 ) As Variant

Private Sub Form_Load()
   dan( 1 ) = Array( 0 . 9 ,  1 . 6 ,  2 . 2 , ...)
   dan( 2 ) = Array( 0 . 8 ,  1 . 2 , ...)
   dan( 3 ) = Array( 0 . 7 ,  1 . 4 , ...)
End Sub

Option Base  1 
Dim dan( 3 ,  163 ) As Double

Private Sub Form_Load()
   InitDan  1 , Array( 0 . 9 ,  1 . 6 ,  2 . 2 )
   InitDan  2 , Array( 0 . 8 ,  1 . 2 )
   InitDan  3 , Array( 0 . 7 ,  1 . 4 )
End Sub

Private Sub InitDan(ByVal Col As Long, ByRef v As Variant)
   Dim i As Long
   If Not IsArray(v) Then Exit Sub
   For i =  1  To UBound(v)
      dan(Col, i) = v(i)
   Next
End Sub

dan( 2 ,  34 )