REM ***** BASIC ***** function splitstring(retezec, rozdelovac, poradi) poradi = poradi - 1 polozky = split(retezec, rozdelovac) if poradi < 0 or poradi > ubound(polozky) then splitstring = "" else splitstring = polozky(poradi) end if End function