'' <b>RAD Extension.</b><br>'' Counts how much times some string apear in other Static Public Function Count(sWhere As String, sWhich As String) As Integer Dim k As Integer = 1 Dim q As Integer Dim r As Integer Repeat q = InStr(sWhere, sWhich, k) If q > 0 Then Inc r k = q + String.Len(sWhich) Endif Until InStr(sWhere, sWhich, k) = 0 Or k > String.Len(sWhere) Return r End