word vba 取几个数中的最小值?