HOW TO SEARCH A WORD IN A TEXT IN VB.NET

HOW TO SEARCH A WORD IN A TEXT IN VB.NET
===================================================================================
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim quot, MainText, SearchWord As String
Dim X, Y, Z As Integer
quot = Chr(34)
MainText = "hi anuhi"
SearchWord = "hi"
Do
X = Y + 1
Z = Z + 1
'Y = InStr(X, "hi anuhi", "hi")
Y = InStr(X, MainText, SearchWord)
Loop Until Y = 0
MsgBox("We found " & SearchWord & " " & Z - 1 & " times inside " & quot & MainText & quot)
End Sub
====================================================================================