added vb code