You could put them into a two dimensional array (rows by columns):
dim myArr as Variant
dim myRng as Range
dim iCtr as long
dim jCtr as long
with activesheet
set myrng = .range("b3:c9")
myarr = myrng.value
end with
for ictr = lbound(myarr,1) to ubound(myarr,1)
for jctr = lbound(myarr,2) to ubound(myarr,2)
msgbox myarr(ictr,jctr)
next jctr
next ictr
But I'm not sure what return means.