Imports System
Public Class Program
Public Shared Sub Main()
Dim name As String = "James John William"
Console.WriteLine(name)
Dim index1 As Integer = name.IndexOf(" ")
Dim index2 As Integer = name.IndexOf(" ", index1 + 1)
Dim middleName As String = name.Substring(index1 + 1, index2 - 1 - index1)
Console.WriteLine(middleName)
End Sub
End Class
' run:
'
' James John William
' John
'