yeah, capito, ma così come l'hai scritta è più una complicazione che una semplificazione. cmq...

codice:
Sub Incrementa(ByRef valore1, ByRef valore2)
   Valore1=Valore1+1
   Valore2=valore2+2
End Sub
....

nRoby1=10
nRoby2=20
Call Incrementa(nRoby1, nRoby2)

' nRoby1 adesso vale 11
' nRoby2 adesso vale 22
ciao belli