Help with string Split

[Ottomate]

How can I split this string " Theoonentsyoutwelfthhouseswiththrsonalunconsciousandanythghiddeneaysiied"

into 4 equal parts, and have it look like this in NotePad.

Theoonentsyoutwelft

hhouseswiththrsonal

unconsciousandanyt

hghiddeneaysiied

I know of stringSplit but still unable to do it, any help would be much appreciated !!!!!

[Jos]

$input = "Theoonentsyoutwelfthhouseswiththrsonalunconsciousandanythghiddeneaysiied"
$sl = StringLen($input)
For $x = 0 to 3
    $Part = StringMid($input,$x * int($sl/4 +.9) + 1, Int($sl/4+.9))
    ConsoleWrite($part & @lf)
Next

[Ottomate]

$input = "Theoonentsyoutwelfthhouseswiththrsonalunconsciousandanythghiddeneaysiied"
$sl = StringLen($input)
For $x = 0 to 3
    $Part = StringMid($input,$x * int($sl/4 +.9) + 1, Int($sl/4+.9))
    ConsoleWrite($part & @lf)
Next

.................... Thanx JdeB ......... works like a charm