Print Specific line in vb Script

Question

i have one text file like below

 

This is Hareesh 

This is Sampath 

This is Hareesh

This is Sampath

This is Hareesh

This is Hareesh

This is Sampath 

This is Hareesh

This is Sampath 

This is Hareesh

This is Sampath 

This is Hareesh

 

i want print This is Hareesh only how many occurences that all will be print.

here is my code

 

Const ForReading = 1

Set objRegEx = CreateObject("VBScript.RegExp")

objRegEx.Global = True

objRegEx.Pattern = "Hareesh"

objRegEx.Ignorecase = true

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Users\Hareesh\Desktop\From_Sampath\Test.txt", ForReading)

strSearchString = objFile.ReadAll

objFile.Close

Set colMatches = objRegEx.Execute(strSearchString)

If colMatches.Count > 0 Then

strMessage = "The following user accounts were found:" & vbCrlf

For Each strMatch in colMatches

msgbox strMessage

strMessage = strMessage & strMatch.Value & " (character position " & _

strMatch.FirstIndex & ")" & vbCrLf

Next

End If

Wscript.Echo strMessage