Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "vb.net c c++ java python php"
Dim ch As Char = "p"c
Dim trimIndex As Integer = str.IndexOf(ch)
If trimIndex >= 0 Then
str = str.Substring(0, trimIndex + 1)
Console.WriteLine(str)
End If
End Sub
End Class
' run:
'
' vb.net c c++ java p
'