SUB Drag ( Data AS Variant [ , Format AS String ] )