Module Module1
Sub Main()
Dim s As String = "VB.NET, p pH PHP, Java Python"
Dim i As Integer = s.IndexOf("P")
Do While (i <> -1)
Console.WriteLine("{0} : {1}", i, s.Substring(i))
i = s.IndexOf("P", i + 1)
Loop
End Sub
End Module
' run:
'
' 13 : PHP, Java Python
' 15: P, Java Python
' 23: Python