Checks if a string value is a valid product number matching a regex

product_number_validator.vba

Function IsValidValue(value As String, minLength As Integer, maxLength As Integer) As Boolean
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")

    ' Define the pattern to match the conditions:
    ' - Starts with one or more digits
    ' - Followed by zero or more letters
    ' - Only alphanumeric characters are allowed
    regex.Pattern = "^\d+[a-zA-Z]*$"
    regex.IgnoreCase = False
    regex.Global = False

    ' Check if the value matches the pattern
    If Not regex.Test(value) Then
        IsValidValue = False
        Exit Function
    End If

    ' Check the length constraints
    If Len(value) < minLength Or Len(value) > maxLength Then
        IsValidValue = False
        Exit Function
    End If

    ' If all conditions are met, return True
    IsValidValue = True
End Function