VB Code:
'========================================================================
'Functionality to check if tracking, order, pick tkt numbers and division
'seem to be truely valid
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
regex.IgnoreCase = True
'Test OrderNo
If Not IsNumeric(KfxOrderNo) Then
bOrderNoValid = 0
Else
'Test expression
regex.Pattern = "(?<!,)\d{12, 20}(?!,)"
Dim xOrderNo As String
xOrderNo = "tt123456789012tt" 'KfxOrderNo
If Not regex.Test(xOrderNo) Then
msgbox "shouldn't be here"
bOrderNoValid = 0
End If
End If