Numero dentro de String

Galera esse programa busca numeros dentro de uma string, muito util quando precisamos quebrar uma string em uma posição onde tem um numero mas nao sabemos quais são essas posições.

def variable i as int no-undo.
def variable s as char no-undo.

s = "ProgresseTecnologia5blogspot6com".

do i = 1 to length(s):
if lookup(substring(s,i,1),"0,1,2,3,4,5,6,7,8,9") <> 0
then message "Numero encontrado" view-as alert-box.
end.