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