Imports System
Public Module Module1
Public Sub Main()
Dim str As String = "VB.NET Java C# C"
Dim pos as Integer = str.IndexOf("Java")
If pos <> -1 Then
Console.WriteLine("Found at index: " & pos)
else
Console.WriteLine("Not Found")
End If
End Sub
End Module
' run
'
' Found at index: 7
'