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)
If index1 <> index2 AndAlso index1 >= 0 Then
name = name.Remove(index1 + 1, index2 - index1)
Console.WriteLine(name)
End If
End Sub
End Class
' run:
'
' James John William
' James William
'