Posto questo codice, di sicuro servirà a qualcuno/a.....due controlli in un campo input.

esempio codice:

codice:
AB=ucase(request.form("campo"))
AB=cstr(AB)

Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = "^[0-9]+,[0-9]+$"
codicea = RegEx.Test(ab)
RegEx.Pattern = "^[0-9]+$"
codiceb = RegEx.Test(ab)
Set RegEx = Nothing

if not codicea and not codiceb Then
response.write "non valida!"
else
response.write "valida!"
end if