One way of getting mutiple values from function is by 
passing values "ByRef" to the funtion and storing the 
return values in the one or more arguemnts passed to the 
functions.

Ex : 
mysum = 0
msgbox mysum ' return 0
mysub = 0
msgbox mysub ' return 0

Function fnmul(byref mysum, mysub, x , y)

mysum = x + y
msgbox mysum 'return 9 
mysub = x - y 
msgbox mysub 'return 1

End Function

Call fnmul( mysum, mysub, 5, 4)

msgbox mysum 'return 9 

msgbox mysub 'return 1

If we pass the parameters by "Byval" the last two msgbox 
statement will return "0"

Ex : 
mysum = 0
msgbox mysum ' return 0
mysub = 0
msgbox mysub ' return 0

Function fnmul(byval mysum, mysub, x , y)

mysum = x + y
msgbox mysum 'return 9 
mysub = x - y 
msgbox mysub 'return 1

End Function

Call fnmul( mysum, mysub, 5, 4)

msgbox mysum 'return 0

msgbox mysub 'return 0