MCA is correct to a point..

You are missing more than just a couple of ENDIFs

You can clean up your code to be -
Code:

WHILE $username <> "" AND @error = 0
       ?$username
       IF NOT InStr ($username,".")
             decrypt()
             ;SELECT ;<< IS THIS NEEDED?
             ;CASE ;<< IS THIS NEEDED?
                   $cbousersort.text = "Name"
                   $fullname=ReadProfileString ($nodepath+$username,"Primary","Fullname")
                   IF InStr($fullname,$txtfind.text)
                         $item=$listusers.items.add
                         $item.subitems(0).text = ($transuserid)
                         $item.subitems(1).text = ($fullname)
                   ELSE ;<< MISSING ELSE? 
                         $cbousersort.text = "User ID#"
                         IF InStr($transuserid,$txtfind.text)
                               ?"Find User ID ="$Find
                               $item=$listusers.items.add
                               $item.subitems(0).text = ($transuserid)
                               $item.subitems(1).text = ReadProfileString ($nodepath+$username,"Primary","Fullname")
                         ENDSELECT
                   ENDIF
                   $username = Dir("")
             ;ENDSELECT ;<< IS THIS NEEDED?
        ENDIF ; MISSING ENDIF
LOOP


Thanks,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's