Sub Main() Dim arr(0 To 2) As Variant arr(0) = 0 arr(1) = 1 arr(2) = 2 Debug.Print bolFunction(arr) End Sub Function bolFunction(ByRef arr() As Variant) As Boolean '// TODO bolFunction = True|False End Function