integer
local
StringLength
loop
exitwhen
SubString
set
SubString
set
else
SubString
endif
set
endloop
set
return
