Multi-type parameters

[GlenW]

Private Sub Form_Load()
    
    Dim myArray() As Single
    
    MsgBox getSize(myArray)
    
End Sub
 
Private Function getSize(inArray() As Variant) As Integer
    
    On Error Resume Next
    
    getSize = 0
    
    getSize = UBound(inArray)
    
End Function

This won't work because the getSize function expects a Variant array.
Apart from a great long list of optional paramaters and loads of ElseIf statements is there any way to write a function that will accept any data type array? Any data type actually.
This really bugs me.