Im Deklarationsfenster:
FUNCTION_BLOCK Splitter
VAR_INPUT
   Trig:BOOL;
   InpStr : STRING;
   Separator : STRING := ',';
   Reset : BOOL;
END_VAR
VAR_OUTPUT
   Q1: ARRAY[0..10] OF STRING;
END_VAR
VAR
   FeldIndex: INT := 0;
   (*SplitAray[0..10] : STRING;*)
   Temp1:STRING;
   DelLaenge: INT;
   VarExit: BOOL;
   ArrIsInit: BOOL;
   Flanke1:BOOL;
   Flanke2 : BOOL;
   i: INT;
END_VAR

Im Programmfenster:
IF Trig = TRUE AND Flanke1 = FALSE THEN  (*Bei Positiver Flanke am Trig-Eingang*)
   (*Prüfen, ob Daten vorhanden, Separator angegeben, Array nicht initialisiert und Reset nicht aktiv.*)
   IF InpStr <> '' AND Separator <> ''  AND ArrIsInit = FALSE AND Reset = FALSE THEN
      Temp1 := InpStr; (*Zeichenkette, sicherheitshalber umkopieren, befor sie manipuliert wird.*)
       WHILE VarExit = FALSE DO (*Alle <Separator-getrennte Blöcke durchlaufen*)
         DelLaenge := FIND(Temp1,Separator); (*Die Länge, des zu bearbeitenden Zeichenketten-Abschnittes ermitteln*)
         Q1[FeldIndex] := LEFT(Temp1, DelLaenge - LEN(Separator)); (*Sämtliche gefundene Blöcke, minus die Separatorzeichen, im Array eintragen*)
         IF DelLaenge = 0 AND Temp1 <> '' THEN (*Wenn kein Separator mehr gefunden wird, aber noch Zeichen einzutragen sind*)
            Q1[FeldIndex] := Temp1; (*Den Zeichenketten-Rest noch im Array eintragen*)
            ArrIsInit := TRUE; (*Array-Initialisierungs-Merker setzen*)
            VarExit := TRUE; (*Exit-Merker, zu verlassen der Suchschleife setzen*)
         END_IF
         FeldIndex := FeldIndex + 1; (*Array-Feld-Index um eins erhöhen*)
         Temp1 := DELETE(Temp1, DelLaenge, 1); (*Beginnend mit dem ersten Zeichen, DelLaenge Zeichen löschen. Die Zeichenkette wird also kürzer*)
        END_WHILE
      Temp1 := ''; (* Sicherstellen, das Temp1, keine Zeichen mehr enthält. Ist eigentlich überflüssig, da in Zeile 4, ein eventueller Rest, überschrieben wird.*)
   END_IF
END_IF
Flanke1 := Trig; (*Flankenmerker zurücksetzen*)
(*Das Ganze resetten*)
IF Reset = TRUE AND Flanke2 = FALSE THEN (*Bei Positiver Flanke am Reset-Eingang*)
   ArrIsInit := FALSE;  (*Array-Initialisierungs-Merker zurücksetzen. Wird bei erneuter Initialisierung, wieder gesetzt.*)
   VarExit := FALSE; (*Exit-Merker, zu verlassen der Suchschleife zurücksetzen. Sonst wird die Schleife, nie durchlaufen*)
   FeldIndex := 0; (*FeldIndex zurücksetzen, damit die nächsten Eintragungen wieder bei 0 beginnen.*)
   FOR i := 0 TO 10 DO (*Array, Feld um Feld den Inhalt löschen. Das Array bleibt leer erhalten*)
      Q1[i] := ''; (*Feldinhalt mit einem Leerstring überschreiben (Löschvorgang)*)
   END_FOR
END_IF
Flanke2 := Reset; (*Flankenmerker zurücksetzen*)