在VBA中，可以使用Array函数来创建一个数组，并使用ReDim Preserve语句来动态调整数组的大小。下面是一个示例代码，实现了一个接受任何类型数组并在末尾添加元素的函数：

Function ArrayPush(arr() As Variant, element As Variant) As Variant()
    Dim newSize As Long
    newSize = UBound(arr) + 1
    
    ReDim Preserve arr(0 To newSize)
    arr(newSize) = element
    
    ArrayPush = arr
End Function

使用这个函数，你可以传递一个任何类型的数组和一个需要添加的元素，函数会返回一个新的数组，其中包含了原数组的所有元素和新添加的元素。

下面是一个使用示例：

Sub TestArrayPush()
    Dim myArray() As Variant
    Dim result() As Variant
    
    ' 初始化数组
    myArray = Array("A", "B", "C")
    
    ' 添加元素
    result = ArrayPush(myArray, "D")
    
    ' 输出结果
    For i = 0 To UBound(result)
        Debug.Print result(i)
    Next i
End Sub

这将输出以下内容：

A
B
C
D

这个示例演示了如何使用ArrayPush函数将一个元素添加到数组的末尾，并打印结果数组的所有元素。