Imports System

Imports System.Collections.Generic      

​

Public Module Module1

    Public Sub Main()

        For Each word In SplitStringToPartWithWordsAndFixedLength("20/F Kowloon XXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx axxxxxxXXXXXXXXxxxxxxxxxxxxxxxXXXXXXXXXXXXXXXXXXXXXXXXx Kowloon Kowloon Kowloon Kowloon Kowloon 1 Wang Yuen Street Kowloon Bay Hong Kong" , 40)

            Console.WriteLine(word)     

        Next

    End Sub

Private Function SplitStringToPartWithWordsAndFixedLength(strInput As String, intLength As Integer) As String()

    Dim words() As String = strInput.Split(" ")

    Dim sentenceParts As List(Of String) = New List(Of String)

    sentenceParts.Add(String.Empty)

    Dim partCounter As Integer = 0

    For Each word In words

    If word.Length > intLength Then

        Do

            Dim intWordLength as Integer = intLength -  sentenceParts(partCounter).Length

            sentenceParts(partCounter) += word.Substring(0, intWordLength)          

            word = word.Remove(0, intWordLength )

            If word.Length>0 andalso word.Length < intLength then

                partCounter = partCounter + 1

                sentenceParts.Add(word + " ")                            

                Exit Do

            End If

            partCounter = partCounter + 1

            sentenceParts.Add(String.Empty)

            Loop Until word.Length = 0

        Else

            If sentenceParts(partCounter).Length + word.Length > intLength Then

                partCounter = partCounter + 1

                sentenceParts.Add(String.Empty)

            End If

            sentenceParts(partCounter) += word + " "

        End If

​

    Next

    Return sentenceParts.ToArray()

End Function

​

End Module