Dim myList As List
myList.Initialize
Dim myString As String = "This is a long string which will be split into individual set size strings"
Wordwrap(myString, 13)
Sub Wordwrap (str As String, count As Int)
myList.Clear
str = str.Replace(" ", "")
For i = 0 To str.Length - count Step count
myList.Add(str.SubString2(i, i + count))
Next
'add remainder of string
myList.Add(str.SubString(i))
End Sub