130618 Date format VBScript

I need a VBScript that will take an incoming date/time character value formatted as (m/d/yyyy H:M:S A), strip out the date portion and return the date formatted as character dd-MMM-yyyy where MMM is abreviated month ie January would be JAN, March would be MAR etc... Please ensure that the dd is padded with a 0 when necessary ie: 2 would be 02. Sample: Incoming: "3/8/2007 3:16:00 PM" (no quotes) Output: "08-MAR-2007" (no quotes) If someone has a predone script that will do this, that would be fine as well.