validation比利时IBANS的代码

有人可以帮助我在Visual Basic for Applications（Excel）中创build函数来validation比利时IBAN号码吗？ 所以我可以在Excel中添加一个数字列表，并将它们validation为TRUE或FALSE。

比利时IBAN号码示例：

BE43 1325 3117 7701

在寻求帮助之前，我尝试了几件事情。 我试图调整我在本网站上的早期主题中find的代码，即：

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中的代码“validation”为真或假，但是我认为通过从代码中删除位置，我还可以删除代码对IBAN号码进行实际validation的function。