VB does not calculate correctly

Printable View