Log(CountOccurrences("aaagfjgkjgkjgkjgkj","a"))
Sub CountOccurrences (Text As String, SearchFor As String) As Int
Dim count As Int
Dim i As Int = Text.IndexOf(SearchFor)
Do While i > -1
count = count + 1
i = Text.IndexOf2(SearchFor, i + 1)
Loop
Return count
End Sub