Code:
If UCase(Right(FSfile, 3)) = "EXE" Then SelectionList.AddItem FSfile


Good Luck