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