Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim s As String = "SOMETHING BIGGER THAN YOUR DREAM"
Dim output As String = Regex.Replace(s, "(\S+(?:\s+\S+){2})\s*", "$1" + Environment.NewLine)
Console.WriteLine(output)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcyBBcyBTdHJpbmcgPSAiU09NRVRISU5HIEJJR0dFUiBUSEFOIFlPVVIgRFJFQU0iCgkJRGltIG91dHB1dCBBcyBTdHJpbmcgPSBSZWdleC5SZXBsYWNlKHMsICIoXFMrKD86XHMrXFMrKXsyfSlccyoiLCAiJDEiICsgRW52aXJvbm1lbnQuTmV3TGluZSkKCQlDb25zb2xlLldyaXRlTGluZShvdXRwdXQpCglFbmQgU3ViCkVuZCBDbGFzcw==