Add dismissal vb code