Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "Visual Basic .NET programming language"
Dim ch As Char = "a"
Dim i As Integer = s.IndexOf(ch)
Do While (i <> -1)
Console.WriteLine(s.Substring(i))
i = s.IndexOf(ch, i + 1)
Loop
End Sub
End Class
' run:
'
' al Basic .NET programming language
' asic .NET programming language
' amming language
' anguage
' age
'