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.

[WALDO]

Private Function getSize(inArray() As ParamArray) As Integer
    
    On Error Resume Next
    
    getSize = 0
    
    getSize = UBound(inArray)
    
End Function

[trisuglow]

This also worked for me (I guess for the same reasons)

Private Function getSize(inArray As Variant) As Integer

[GlenW]

Private Function getsize(ParamArray inArray()) As Integer
    
    On Error Resume Next
    
    getsize = 0
    
    getsize = UBound(inArray)
    
End Function

Thanks WALDO, I had to put ParamArray first to get it to work like above, don't know why.
I wish I'd asked before making loads of copies of functions for working with arrays.

[GlenW]

Its not working

Option Explicit
 
Private Sub Form_Load()
    
    Dim myArray() As Single
    Dim i As Integer
    i = 9
    ReDim Preserve myArray(i)
    
    MsgBox getSize(myArray)
    
End Sub
 
Private Function getSize(ParamArray inArray()) As Integer
    
    On Error Resume Next
    
    getSize = 0
    
    getSize = UBound(inArray)
    
End Function

returns 0