Function Split:String[](str:String, separator:String)
   Local ret:String[]
   Local pos:Int = 0
   Local old_pos:Int = 0
   
   pos = Instr(str, separator)
   old_pos = 1 - separator.Length
   While pos > 0
      ret = ret[..ret.Length+1]
      ret[ret.Length-1] = Mid(str, old_pos + separator.Length, pos - (old_pos + separator.Length))
      old_pos = pos
      pos = Instr(str, separator, old_pos + separator.Length)
   Wend
   
   ret = ret[..ret.Length+1]
   ret[ret.Length-1] = Mid(str, old_pos + separator.Length)

   Return ret   
End Function

Local txt:String = "Wort1<-->Wort2<-->Wort3"

Local arr:String[] = Split(txt, "<-->")

For Local s:String = EachIn arr
   Print s
Next