As
Greeme_Grant[
^] mentioned in the comment to your question,
Mid
function will do that. Check this:
Sub Test()
Dim myText As String
Dim tlength As Integer
Dim divider As Integer
Dim counter As Integer
myText = "Begin. Very long string. Lorem ipsusm. Lorem ipsum. Lorem ipsum. Very long string. End."
tlength = Len(myText)
divider = tlength / 3
counter = 1
Do While counter <= tlength
MsgBox Mid(myText, counter, divider)
counter = counter + divider
Loop
End Sub