>Instead of the other solution that works in 9 you can try
>
>

>lcNumbers	=  Alltrim(chrtran("A-B123Q4E", "ABCDEFGHIJKLMNOPQRSTUVWXYZ-", Space(26)))
>? At(' ', lcNumbers) - 1
>? Left(lcNumbers, At(' ', lcNumbers) - 1)
>? substr(lcNumbers, At(' ', lcNumbers) + 1)
>

What if I don't have a letter at the beginning or don't have letters at all?

Anyway, this
lcNumbers = Alltrim(chrtran("A-B123Q4E", "ABCDEFGHIJKLMNOPQRSTUVWXYZ-", Space(26)))
MESSAGEBOX(GETWORDCOUNT(lcNumbers))
seems to work.

Thanks again.