Public Function ReturnArrayFromFunction() As Variant 'Get a file list from a specified directory Dim sArray(1) As String sArray(1) = "abc" ReturnArrayFromFunction = sArray End Function