Local llOk, lnFor lOk = .T. mCharacters = Alltrim(mCharacters) For lnFor = 1 To Len(mCharacters) IF Not SubStr(mCharacters, lnFor, 1) $ "ABCDEFGHIJKLMNOPQRSTXYZ" mOldID = IncompleteList.ID llOk = .F. ENDIF Next If llOk mID = alltrim(SUBSTR(mOldID,3,7)) EndifBye!