Mode Function Procedure In Vb