VB WIP2

Can be adjusted easily according to the need.