Возвращает массив из функции VBA
Function arrayOfPiDigits() As Long()
'Add parenthesis after the data type
Dim outputArray(0 To 2) As Long
outputArray(0) = 3
outputArray(1) = 1
outputArray(2) = 4
arrayOfPiDigits = outputArray
End Function
The VBA Guy