Urgente Validar quantidade de entradas de um caracter

Boa noite

Pessoal estou com um problema estou fazendo um programa onde eu tenho uma variável com valores separados por ;, porem gostaria de saber se tem uma forma deu verificar quantas vezes o caracter ; aparece nessa variável afim de prever possíveis problemas de layout alguém saberia uma forma? Abaixo segue um pequeno exemplo.

Código:

DEF VAR teste AS CHARACTER .

ASSIGN teste = '1;2;3;4;'.

Gostaria de saber se tem algum comando progress que me retorne que nessa string eu tenho 4 ; alguém saberia me responder?

Já tentou "NUM-ENTRIES" ?

DEF VAR teste AS CHARACTER .
DEF VAR qtd AS INTEGER .

ASSIGN teste = '1;2;3;4;'

qtd = NUM-ENTRIES(teste,";").​

DISPLAY qtd.