Use the Instr function.

Code:
If Instr(Text1.text, "<body . >") Then
Msgbox "string found!"
Else
Msgbox "string not found!"
End If