excel VBA+正则+自定义函数

希望用excel vba自定义一个函数，使用起来像公式一样，可以直接正则提取选中单元格的值，并将值返回

回答要求是可以直接用的代码，ty

 用c#我会一点.用VB不太会