Excel 验证比利时IBAN的代码

有人能帮我在Visual Basic for Applications（Excel）中创建一个函数来验证比利时IBAN号码吗？因此，我可以在Excel中添加一个数字列表，并验证它们是否正确

比利时IBAN号码示例：

BE43 1325 3117 7701

在寻求帮助之前，我试过几件事。我已尝试调整我在本网站上较早主题中找到的代码，该主题是：

Public Function VALIDATEIBAN(ByVal IBAN As string) As Boolean
On Error GoTo Catch

Dim objRegExp As Object
Dim blnIsValidIBAN As Boolean

Set objRegExp = CreateObject("vbscript.regexp")
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "^[a-zA-Z]{2}\d{2}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}|CZ\d{22}$"



blnIsValidIBAN = objRegExp.Test(IBAN)
VALIDATEIBAN = blnIsValidIBAN

Exit Function

Catch:
VALIDATEIBAN = False
MsgBox "Module: " & MODULE_NAME & " - VALIDATEIBAN function" & vbCrLf & vbCrLf _
    & "Error#:  " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Function

我一直试图通过调整来修改：

objRegExp.Pattern = "^[a-zA-Z]{2}\d{2}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}[ ]\d{4}|CZ\d{22}$"

我从显而易见的开始，删除支票的八个位置，如下所示：

objRegExp.Pattern = "^[a-zA-Z]{2}\d{2}[ ]\d{4}[ ]\d{4}[ ]\d{4}|CZ\d{22}$"

通过这种方式，我可以让Excel中的代码“验证”为真或假，但我认为，只要从代码中删除位置，我就可以删除代码对IBAN编号执行实际验证的能力。

[BE]{2}[0-9]{2}[][0-9]{4}[][0-9]{4}[[0-9]{4}或这（BE 0-9]{17}