How to split strings

This seems to work as SCL FC:

// reset to empty string all 5 elements of array of 5 strings in ParsedData DB
FOR #elementNum := 1 TO 5 DO
"ParsedData".Element[#elementNum] := '';
END_FOR;

// str2Parse is Input to function
// all other are temporary variables all of Int type except strTemp which is String

#strLen := LEN(#str2Parse);
#strTemp := #str2Parse;
#elementNum := 0;

WHILE #strLen > 0 AND #elementNum < 5 DO
#elementNum := #elementNum + 1;
#delimiterPos := FIND(IN1:=#strTemp, IN2:=';');
IF #delimiterPos > 0 THEN
#elementLen := #delimiterPos - 1;
"ParsedData".Element[#elementNum] := LEFT(IN:=#strTemp, L:=#elementLen);
#restLen := #strLen - #delimiterPos;
#strTemp := RIGHT(IN:=#strTemp, L:=#restLen);
ELSE
"ParsedData".Element[#elementNum] := #strTemp;
#strTemp := '';
END_IF;
#strLen := LEN(#strTemp);
END_WHILE;