How to return multiple values from a function?

Usually Function procedure will return only one value. But by using arrays concept we can return multiple values from a function.

'**********************************************************

Function fnGetOddNumbersInRange(fStartRange,fEndRange)

Dim oddNumbers()

Dim cnt,iCounter

'Initiating a counter to redim the dynamic array

cnt=0

For iCounter=fStartRange to fEndRange

'Applying the odd number logic : num/2 <>0 then its an odd number

If iCounter mod 2<>0 Then

ReDim preserve oddNumbers(cnt)

' Storing Odd numbers in dynamic array

oddNumbers(cnt)=iCounter

cnt=cnt+1

End If

Next

'Assigning array to the function

fnGetOddNumbersInRange=oddNumbers        

End Function

'**********************************************************

'**********************************************************

'How to work with this function?

'Here Function will return array value

oVal=fnGetOddNumbersInRange(1,10)

For i=0 to ubound(oVal)

' Displaying the values in array

msgbox oVal(i)

Next 

'**********************************************************