Validate Numeric value is displaying expected format

[kalaivanan123]

My application displays the account number in specific format
(E.g :3782-924723-01008).

Can anyone suggest me how to validate that account number value is displaying in below format on my web application.

Format needs to validate : XXXX-XXXXXX-XXXXX

[ravi.gajul]

use this regular expression [0-9]{4}-[0-9]{6}-[0-9]{5}
alternatively you may pass your account number to a function defined below

Code:

strAccountNumber="3782-924723-01008" MsgBox(RegExpTest("[0-9]{4}-[0-9]{6}-[0-9]{5}", strAccountNumber)) Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' Create variable. Set regEx = New RegExp ' Create a regular expression. regEx.Pattern = patrn ' Set pattern. regEx.IgnoreCase = True ' Set case insensitivity. regEx.Global = True ' Set global applicability. Set Matches = regEx.Execute(strng) ' Execute search. For Each Match in Matches ' Iterate Matches collection. RetStr = RetStr & "Match found at position " RetStr = RetStr & Match.FirstIndex & ". Match Value is '" RetStr = RetStr & Match.Value & "'." & vbCRLF Next RegExpTest = RetStr End Function