Imports System
Class Program
Public Shared Sub Main()
Dim str As String = "I bought running shoes, but they started running alone, now we are both happy"
Dim substring As String = "running"
Dim position As Integer = str.IndexOf(substring)
If position <> -1 Then
Console.WriteLine($"The first occurrence of " & substring & " is at position: " & position)
Else
Console.WriteLine("Substring not found!")
End If
End Sub
End Class
' run:
'
' The first occurrence of running is at position: 9
'