Calculate cell value in vb.net