ActiveDocument.Variables("varDate").Value = Me.DTPicker1.Value
ActiveDocument.Variables("varDate").Value = Format(Me.DTPicker1.Value, "Long Date")