Se desideri restituire valori potresti utilizzare una sub al posto della function...
Ad ogni modo basta che nella dichiarazione i valori che desideri farti restituire li dichiari come byRef

Ad esempio:

codice:
sub miosub(valore1, valore2, valore3, valore4, byRef valore1, byRef valore2, byRef valore3, byRef valore4)
Se dichiari solo i byRef non credo funzioni, del tipo input-output

Roby