كيف اجعل هذا الكود يستخلص جميع الجمل المطلوبة من النص وليس اول جملة فقط ؟

كيف اجعل هذا الكود يستخلص جميع الجمل المطلوبة من النص وليس اول جملة فقط ؟

حيث انة يستخلص اول جملة بنجاح ثم يتوقف

اقتباس

Public Function GetBetweenIT(ByVal strText As String, ByVal strT1 As String, ByVal strT2 As String)

On Error GoTo done

Dim loglenT1, loglenT2, logStart, logL As Long

loglenT1 = Len(strT1)

loglenT2 = Len(strT2)

logStart = (InStr(strText, strT1) + loglenT1)

If logStart = loglenT1 Then Exit Function

logL = (InStr(strText, strT2)) - logStart

If logL <= 0 Then Exit Function

GetBetweenIT = Mid$(strText, logStart, logL)

End Function