Hi
You could output an array of variants.
Each range object has an Areas property to count the disconnected bits
of the range. for your three areas you could try

Function Tester() as Variant
Dim OutputValues() as Variant
AreaCount = Selection.Areas.Count
ReDim OutputValues(1 to AreaCount)
for i = 1 to AreaCount
OutputValues(i) =Selection.Areas(i).Value
next i
Tester = OutputValues
end function

Then OutPutValues(2) would be the array of values in area 2 of the
selection.

regards
Paul