function zbrojiRed(red as single)
      zadnjiRed=traziZadnjiRed(kolona)
      red=red+zadnjiRed
      zbrojiRed=red
end function

sub test()
      prviRed=traziPrviRed(kolona)
      zbroji=zbrojiRed(prviRed)
      msgbox "prviRed: " & prviRed & vbnewline & _
             "zbroji: " & zbroji
end sub