字符串搜索正则表达式VB？

Question

在Excel VB中，我试图在字符串中搜索表示一年的4位数字，即。 ＆＃34;这个男人出生于1986年，那是一个阳光灿烂的日子＆＃34; ，我正在尝试提取 ＆＃ 34; 1986＆＃34; 来自此字符串。似乎使用正则表达式是我最好的选择，但是我不熟悉它们，是4位数字的正则表达式，如 ＆＃34; \ d {4}＆＃34 ; ？，

如果我发现我的字符串包含这样的数字是否有一种有效的方法来获取字符串的开始和结束点以进行提取？我有关于如何做到这一点的想法，但它们看起来非常低效，有没有快速的方法来查找和提取这些数据？

伪代码：

dim bool As boolean
bool = cells(d, 1).Value.contains(\d{4})

if bool then
   'extract string
end if