Imports System
Public Class MiddleWordsOfAString_VB_NET
Public Shared Function GetMiddleWords(ByVal input As String) As String
Dim wordsArr As String() = input.Split(" "c)
Dim numWords As Integer = wordsArr.Length
If numWords Mod 2 = 0 Then
Dim middle1 As String = wordsArr((numWords \ 2) - 1)
Dim middle2 As String = wordsArr(numWords \ 2)
Return middle1 & " " & middle2
Else
Dim middleMinus1 As String = wordsArr((numWords \ 2) - 1)
Dim middle As String = wordsArr(numWords \ 2)
Dim middlePlus1 As String = wordsArr((numWords \ 2) + 1)
Return middleMinus1 & " " & middle & " " & middlePlus1
End If
End Function
Public Shared Sub Main()
Dim input As String = "c++ c java rust vb.net python golang"
Console.WriteLine(GetMiddleWords(input))
End Sub
End Class
' run:
'
' java rust vb.net
'
