Then it should be something like...
VB Code:
  1. d.Caption = total4