Imports System
Public Class Program
Public Shared Function ReverseWords(ByVal s As String) As String
Dim arr As String() = s.Split(" "c)
Array.Reverse(arr)
Return String.Join(" ", arr)
End Function
Public Shared Sub Main()
Dim s As String = "Visual Basic programming language"
s = ReverseWords(s)
Console.Write(s)
End Sub
End Class
' run:
'
' language programming Basic Visual
'