Contact: aviboots(AT)netvision.net.il
31,042 questions
40,761 answers
573 users
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(i) i = s.IndexOf("P", i + 1) Loop End Sub End Module ' run: ' ' 8 ' 10 ' 13 ' 15 ' 23