Search word in text file using Regular Expression

Set objregex=createobject("vbscript.regexp")
objregex.pattern="dhsi"
Set fso=createobject("scripting.filesystemobject")
Set ob=fso.opentextfile("E:\test.txt",1)
Do until ob.atendofstream
strsearch=ob.readline
set c=objregex.execute(strsearch)
If c.count>0 Then
For each m in c
msgbox(strsearch)
Next


End If
Loop
ob.close