地母深渊

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