String function - I forgot which one

[David Laplante]

Hi.
I forgot which string function will return the number of times the word "the" was found in the string "the lion is the king of the jungle".

thanks

[asabi]

I never new about this function , but you can make one like:

Private Sub Form_Load()
MsgBox returnThe("the lion is the king of the jungle")
End Sub

Private Function returnThe(theString As String) As Integer
Dim counter
counter = 0
Do
place = InStr(theString, "the")
theString = Right(theString, Len(theString) - place)
If place <> 0 Then counter = counter + 1
Loop While place <> 0
returnThe = counter
End Function

I dont know if there is a function but here is some code i modified to do the same job. Hope it helps.
[/CODE]
Dim x As Integer
Dim string1 As String
Dim string2 As String
Dim count As Integer

string1 = "the lion is the king of the jungle"
string2 = "the"
x = 1
count = 0

Do Until x = 0
x = InStr(x, string1, string2, 1)
If x > 0 Then
count = count + 1
x = x + 1
End If
Loop

MsgBox count
[/CODE]