Function splitby:TList(str$,messagesize%=400)
    Local list:TList=New TList
    Local i%=0
    Local j%=-1
    Local h%=0
    While(j<str.length-1)' i=0 To str.length/messagesize
        i=j+1
        j=str.find(" ",messagesize+i)
        j:+(j=-1)*(str.length+1)'turn -1 into str.length
        list.addlast(str[i..j])
    Wend
    If(list.isEmpty())
        list.addlast("")
    EndIf
    Return list
End Function