Mode Function Procedure In Visual Basic