prova con:
lbris.Caption = Format(Cdbl(lblRis.caption) + cdbl(ris),"0.00")