Find A String On 2 Seperate Lines

Hi.

Im using this little function to search for text within some downloaded HTML source:


Public Function GetStringBetween(ByVal InputText As String, _
ByVal starttext As String, _
ByVal endtext As String)

Dim lnTextStart As Long
Dim lnTextEnd As Long

lnTextStart = InStr(StartPosition, InputText, starttext, vbTextCompare) + Len(starttext)
lnTextEnd = InStr(lnTextStart, InputText, endtext, vbTextCompare)
If lnTextStart >= (StartPosition + Len(starttext)) And lnTextEnd > lnTextStart Then
GetStringBetween = Mid$(InputText, lnTextStart, lnTextEnd - lnTextStart)
Else
GetStringBetween = "ERROR"
End If
End Function


It works great, but i need to be able to search for something that spans over 2 lines. E.g.

Sam works in a shop from the hours
of 09:00 to 15:00

I want to search for the words "hours of" - but because they are on seperate lines, it cannot find it.

I have tried "hours" & Environment.NewLine & "of" - and other variants of envirmonment.newline (knowing they all return the same value, but, hey, you gotta try) but to no avail. Surely there must be some sort of syntax to ge around this?

Any ideas?