sorry, problem, look what happens
if there's only enough text for one field
Sub Dec2TEST()
Dim strtest As String
strtest = "Big Bad Commercial Compa"
Debug.Print getField(strtest, 1, 36)
Debug.Print getField(strtest, 2, 36)
Debug.Print getField(strtest, 3, 36)
Debug.Print getField(strtest...