Plz someone tell me its solution using VB

Top