Hi,
I've got a function in a module, as follows:
Function xg_GetWordsTim(sMain As String, s1 As String, s2 As String) As String
On Error Resume Next
Dim iStart As Integer, iEnd As Integer
iStart = InStr(1, sMain, s2) - 20
iEnd = InStr(iStart, sMain, s2)
xg_GetWordsTim =...