Hi Alvin,

on error resume next
side =Mid(folder, (InStrRev(folder, "_") + 1))
if err< then
err = 0
' underscore not found
else
'underscore found
end if
on error goto 0

Regards,
Ivan