[CODE=vb]
Function InStrT(ByVal string1, ByVal string2)
Dim i, count:count = 0

For i = 1 To Len(string1)
If Mid(string1, i, Len(string2)) = string2 Then count = count + 1
InStrT = count
Next ‘i
End Function
[/CODE]