maybe this one might work

VB Code:
  1. d.Caption = total4