Function func1() As Double()
Dim data() As Double
ReDim data(10)
data(0) = 0.1
data(1) = 0.2
func1 = data
 End Function