Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "C# VB.NET C C++ Java"
Dim tofind As String = "VB"
Dim index As Integer = str.IndexOf(tofind)
Console.WriteLine(index)
Console.WriteLine(str(index))
Console.WriteLine(str.Substring(0, index))
Console.WriteLine(str.Substring(index, str.Length - index))
End Sub
End Class
' run:
'
' 3
' V
' C#
' VB.NET C C++ Java
'