<tt> <p nowrap> &#160; <font color="#006600"> &#160;'--------------------------------- &#160; &#160;' Simple MultiInStr: &#160;' Always returns 'their' before 'heir' &#160;' but returns either 'the' or 'their' depending on &#160;' which term was found first in sTerms array order </font> &#160; <font color="#000099">Function </font><font color="#660000">MultiInStr</font><font color="#330000">(</font><font color="#660000">sSrc </font><font color="#000099">As String</font><font color="#330000">, </font><font color="#660000">sTerms</font><font color="#330000">()</font> <font color="#000099">As String</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">lStart</font> <font color="#000099">As Long</font><font color="#330000"> = 1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">eCompare</font> <font color="#000099">As</font> <font color="#660000">VbCompareMethod</font><font color="#330000"> = </font> <font color="#660000">vbBinaryCompare</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">lRightLimit</font> <font color="#000099">As Long</font><font color="#330000"> = -1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByRef</font> <font color="#660000">lHitItemIndex</font> <font color="#000099">As Long</font><font color="#330000">)</font> </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iPos </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iHit </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iIdx </font><font color="#000099">As Long</font> &#160; &#160; <font color="#000099">If </font><font color="#660000">lRightLimit</font> <font color="#330000">= -1</font> <font color="#000099">Then</font> <font color="#660000">lRightLimit</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> &#160; <font color="#660000">iHit</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> <font color="#330000">+ 1</font> &#160; &#160; <font color="#000099">For</font> <font color="#660000">iIdx</font> <font color="#330000">=</font> <font color="#000099">LBound(</font><font color="#660000">sTerms</font><font color="#000099">) To UBound(</font><font color="#660000">sTerms)</font> &#160; &#160; &#160;<font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">lStart</font><font color="#330000">,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160;<font color="#000099">If</font> <font color="#660000">iPos</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#000099">If</font> <font color="#660000">iPos</font> <font color="#330000">&lt;</font> <font color="#660000">iHit</font> <font color="#000099">Then</font> <font color="#660000">iHit</font> <font color="#330000">=</font> <font color="#660000">iPos</font><font color="#330000">:</font> <font color="#660000">lHitItemIndex</font> <font color="#330000">=</font> <font color="#660000">iIdx</font> &#160; &#160; &#160;<font color="#000099">End If</font> &#160; <font color="#000099">Next</font> &#160; &#160; <font color="#000099">If</font> <font color="#660000">iHit</font> <font color="#330000">&lt;</font> <font color="#660000">Len(sSrc)</font> <font color="#330000">+ 1</font> <font color="#000099">Then</font> <font color="#660000">MultiInStr</font> <font color="#330000">=</font> <font color="#660000">iHit</font> &#160; <font color="#000099">End Function</font> &#160; <font color="#006600"> &#160;'--------------------------------- &#160; &#160;' Comment From: Kenneth Buckmaster &#160;' It occurred to me that you could avoid searching the &#160;' whole string length after a term is found &#160; &#160;' Also added something you might want in these functions - &#160;' returns 'the' before 'their' when in the same location </font> &#160; <font color="#000099">Private Declare Sub </font><font color="#660000">CopyMemory </font><font color="#000099">Lib </font><font color="#000000">"kernel32" </font><font color="#000099">Alias </font><font color="#000000">"RtlMoveMemory" _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#330000">(</font><font color="#660000">pDest </font><font color="#000099">As Any, </font><font color="#660000">pSrc </font><font color="#000099">As Any, ByVal </font><font color="#660000">lLenB </font><font color="#000099">As Long)</font> &#160; <font color="#000099">Function </font><font color="#660000">MultiInStr</font><font color="#330000">(</font><font color="#660000">sSrc </font><font color="#000099">As String</font><font color="#330000">, </font><font color="#660000">sTerms</font><font color="#330000">()</font> <font color="#000099">As String</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">lStart</font> <font color="#000099">As Long</font><font color="#330000"> = 1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">eCompare</font> <font color="#000099">As</font> <font color="#660000">VbCompareMethod</font><font color="#330000"> = </font> <font color="#660000">vbBinaryCompare</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByVal</font> <font color="#660000">lRightLimit</font> <font color="#000099">As Long</font><font color="#330000"> = -1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">Optional ByRef</font> <font color="#660000">lHitItemIndex</font> <font color="#000099">As Long</font><font color="#330000">)</font> </font><font color="#000099">As Long</font> <font color="#006600">' Kenneth Buckmaster</font> &#160; <font color="#000099">Dim </font><font color="#660000">iPos </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iHit </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iIdx </font><font color="#000099">As Long</font> &#160; &#160; <font color="#000099">Dim </font><font color="#660000">spointer </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">slenb </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">biggestlen </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">newsearchlen </font><font color="#000099">As Long</font> &#160; &#160; <font color="#000099">Dim </font><font color="#660000">bHit </font><font color="#000099">As Boolean</font> &#160; &#160; <font color="#660000">slenb </font><font color="#330000">= </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sSrc</font><font color="#330000">)</font> &#160; <font color="#660000">spointer </font><font color="#330000">= </font><font color="#660000">StrPtr</font><font color="#330000">(</font><font color="#660000">sSrc</font><font color="#330000">) - 4&</font> &#160; &#160; <font color="#000099">For </font><font color="#660000">iIdx </font><font color="#330000">=</font> <font color="#000099">LBound(</font><font color="#660000">sTerms</font><font color="#000099">) To UBound(</font><font color="#660000">sTerms)</font> &#160; &#160; &#160;<font color="#000099">If </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">)) &gt; </font><font color="#660000">biggestlen </font><font color="#000099">Then </font><font color="#660000">biggestlen </font><font color="#330000">= </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">))</font> &#160; <font color="#000099">Next</font> &#160; &#160; <font color="#000099">If </font><font color="#660000">lRightLimit</font> <font color="#330000">= -1</font> <font color="#000099">Then</font> <font color="#660000">lRightLimit</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> &#160; <font color="#660000">iHit</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> <font color="#330000">+ 1</font> &#160; &#160; <font color="#000099">For</font> <font color="#660000">iIdx </font><font color="#330000">=</font> <font color="#000099">LBound(</font><font color="#660000">sTerms</font><font color="#000099">) To UBound(</font><font color="#660000">sTerms)</font> &#160; &#160; &#160;<font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">lStart</font><font color="#330000">,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160; &#160;<font color="#000099">If </font><font color="#660000">iPos</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#000099">If </font><font color="#660000">iPos </font><font color="#330000">&lt; </font><font color="#660000">iHit </font><font color="#000099">Then</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#000099">True</font> &#160; &#160; &#160; &#160; <font color="#000099">ElseIf </font><font color="#660000">iPos </font><font color="#330000">= </font><font color="#660000">iHit </font><font color="#000099">Then</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">)) &lt; </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">lHitItemIndex</font><font color="#330000">))</font> &#160; &#160; &#160; &#160; <font color="#000099">End If</font> &#160; &#160; &#160; &#160; &#160; <font color="#000099">If </font><font color="#660000">bHit</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">iHit </font><font color="#330000">= </font><font color="#660000">iPos</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">lHitItemIndex </font><font color="#330000">= </font><font color="#660000">iIdx</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">newsearchlen </font><font color="#330000">= </font><font color="#660000">iHit </font><font color="#330000">+ <font color="#660000">iHit </font><font color="#330000">+ </font><font color="#660000">biggestlen</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">If </font><font color="#660000">newsearchlen </font><font color="#330000">&lt; </font><font color="#660000">slenb</font> <font color="#000099">Then </font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">CopyMemory </font><font color="#000099">ByVal </font><font color="#660000">spointer</font><font color="#330000">, </font><font color="#660000">newsearchlen</font><font color="#330000">, 4&</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#000099">End If</font> &#160; &#160; &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#000099">False</font> &#160; &#160; &#160; &#160; <font color="#000099">End If</font> &#160; &#160; &#160;<font color="#000099">End If</font> &#160; <font color="#000099">Next</font> &#160; &#160; <font color="#660000">CopyMemory </font><font color="#000099">ByVal </font><font color="#660000">spointer, slenb</font><font color="#330000">, 4&</font> &#160; &#160; <font color="#000099">If</font> <font color="#660000">iHit</font> <font color="#330000">&lt;</font> <font color="#660000">Len(sSrc)</font> <font color="#330000">+ 1</font> <font color="#000099">Then</font> <font color="#660000">MultiInStr</font> <font color="#330000">=</font> <font color="#660000">iHit</font> &#160; <font color="#000099">End Function</font> &#160; <font color="#006600"> &#160;'--------------------------------- &#160; &#160;' Simple MultiInStrR: &#160;' Returns 'heir' before 'their' for reverse search &#160;' but returns either 'the' or 'their' depending on &#160;' which term was found first in sTerms array order </font> &#160; <font color="#000099">Function </font><font color="#660000">MultiInStrR</font><font color="#330000">(</font><font color="#660000">sSrc </font><font color="#000099">As String</font><font color="#330000">, </font><font color="#660000">sTerms</font><font color="#330000">()</font> <font color="#000099">As String</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">lRightStart</font> <font color="#000099">As Long</font><font color="#330000"> = -1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">eCompare</font> <font color="#000099">As</font> <font color="#660000">VbCompareMethod</font><font color="#330000"> = </font> <font color="#660000">vbBinaryCompare</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">lLeftLimit</font> <font color="#000099">As Long</font><font color="#330000"> = 1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByRef</font> <font color="#660000">lHitItemIndex</font> <font color="#000099">As Long</font><font color="#330000">)</font> </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iLast </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iPos </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iHit </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iIdx </font><font color="#000099">As Long</font> &#160; &#160; <font color="#000099">If </font><font color="#660000">lRightStart</font> <font color="#330000">= -1</font> <font color="#000099">Then</font> <font color="#660000">lRightStart</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> &#160; &#160; <font color="#000099">For</font> <font color="#660000">iIdx</font> <font color="#330000">=</font> <font color="#000099">LBound(</font><font color="#660000">sTerms</font><font color="#000099">) To UBound(</font><font color="#660000">sTerms)</font> &#160; &#160; &#160;<font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">lLeftLimit</font><font color="#330000">,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160; &#160;<font color="#000099">Do Until</font> <font color="#660000">iPos</font> <font color="#330000">= 0</font> <font color="#000099">Or</font> <font color="#660000">iPos</font> <font color="#330000">&gt;</font> <font color="#660000">lRightStart</font> &#160; &#160; &#160; &#160; <font color="#660000">iLast</font> <font color="#330000">=</font> <font color="#660000">iPos</font> &#160; &#160; &#160; &#160; <font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">iLast</font> <font color="#330000">+ 1,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160;<font color="#000099">Loop</font> &#160; &#160; &#160; &#160;<font color="#000099">If</font> <font color="#660000">iLast</font> <font color="#330000">&gt;</font> <font color="#660000">iHit</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#660000">iHit</font> <font color="#330000">=</font> <font color="#660000">iLast</font> &#160; &#160; &#160; &#160; <font color="#660000">lHitItemIndex</font> <font color="#330000">=</font> <font color="#660000">iIdx</font> &#160; &#160; &#160; &#160; <font color="#660000">lLeftLimit</font> <font color="#330000">=</font> <font color="#660000">iLast</font> &#160; &#160; &#160; &#160; <font color="#660000">iLast</font> <font color="#330000">= 0</font> &#160; &#160; &#160;<font color="#000099">End If</font> &#160; <font color="#000099">Next</font> &#160; &#160; <font color="#000099">If</font> <font color="#660000">iHit</font> <font color="#000099">Then</font> <font color="#660000">MultiInStrR</font> <font color="#330000">=</font> <font color="#660000">iHit</font> &#160; <font color="#000099">End Function</font> &#160; <font color="#006600"> &#160;'--------------------------------- &#160; &#160;' Comment From: Kenneth Buckmaster &#160;' Always returns 'heir' before 'their' for reverse search &#160;' Always returns 'their' before 'the' for reverse search </font> &#160; <font color="#000099">Function </font><font color="#660000">MultiInStrR</font><font color="#330000">(</font><font color="#660000">sSrc </font><font color="#000099">As String</font><font color="#330000">, </font><font color="#660000">sTerms</font><font color="#330000">()</font> <font color="#000099">As String</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">lRightStart</font> <font color="#000099">As Long</font><font color="#330000"> = -1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">eCompare</font> <font color="#000099">As</font> <font color="#660000">VbCompareMethod</font><font color="#330000"> = </font> <font color="#660000">vbBinaryCompare</font><font color="#330000">, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByVal</font> <font color="#660000">lLeftLimit</font> <font color="#000099">As Long</font><font color="#330000"> = 1, _</font> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<font color="#000099">Optional ByRef</font> <font color="#660000">lHitItemIndex</font> <font color="#000099">As Long</font><font color="#330000">)</font> </font><font color="#000099">As Long</font> <font color="#006600">' Kenneth Buckmaster</font> &#160; <font color="#000099">Dim </font><font color="#660000">iLast </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iPos </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iHit </font><font color="#000099">As Long</font> &#160; <font color="#000099">Dim </font><font color="#660000">iIdx </font><font color="#000099">As Long</font> &#160; &#160; <font color="#000099">Dim </font><font color="#660000">bHit </font><font color="#000099">As Boolean</font> &#160; &#160; <font color="#000099">If </font><font color="#660000">lRightStart</font> <font color="#330000">= -1</font> <font color="#000099">Then</font> <font color="#660000">lRightStart</font> <font color="#330000">=</font> <font color="#660000">Len(sSrc)</font> &#160; &#160; <font color="#000099">For</font> <font color="#660000">iIdx</font> <font color="#330000">=</font> <font color="#000099">LBound(</font><font color="#660000">sTerms</font><font color="#000099">) To UBound(</font><font color="#660000">sTerms)</font> &#160; &#160; &#160;<font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">lLeftLimit</font><font color="#330000">,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160; &#160;<font color="#000099">Do Until</font> <font color="#660000">iPos</font> <font color="#330000">= 0</font> <font color="#000099">Or</font> <font color="#660000">iPos</font> <font color="#330000">&gt;</font> <font color="#660000">lRightStart</font> &#160; &#160; &#160; &#160; <font color="#660000">iLast</font> <font color="#330000">=</font> <font color="#660000">iPos</font> &#160; &#160; &#160; &#160; <font color="#660000">iPos</font> <font color="#000099">= InStr(</font><font color="#660000">iLast</font> <font color="#330000">+ 1,</font> <font color="#660000">sSrc</font><font color="#330000">,</font> <font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">), <font color="#660000">eCompare</font><font color="#330000">)</font> &#160; &#160; &#160;<font color="#000099">Loop</font> &#160; &#160; &#160; &#160;<font color="#000099">If</font> <font color="#660000">iLast</font> <font color="#330000">&gt;</font> <font color="#660000">iHit</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#000099">True</font> &#160; &#160; &#160;<font color="#000099">ElseIf </font><font color="#660000">iLast </font><font color="#330000">= </font><font color="#660000">iHit </font><font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">iIdx</font><font color="#330000">)) &gt; </font><font color="#660000">LenB</font><font color="#330000">(</font><font color="#660000">sTerms</font><font color="#330000">(</font><font color="#660000">lHitItemIndex</font><font color="#330000">))</font> &#160; &#160; &#160;<font color="#000099">End If</font> &#160; &#160; &#160; &#160;<font color="#000099">If </font><font color="#660000">bHit</font> <font color="#000099">Then</font> &#160; &#160; &#160; &#160; <font color="#660000">iHit</font> <font color="#330000">=</font> <font color="#660000">iLast</font> &#160; &#160; &#160; &#160; <font color="#660000">lHitItemIndex</font> <font color="#330000">=</font> <font color="#660000">iIdx</font> &#160; &#160; &#160; &#160; <font color="#660000">lLeftLimit</font> <font color="#330000">=</font> <font color="#660000">iLast</font> &#160; &#160; &#160; &#160; <font color="#660000">iLast</font> <font color="#330000">= 0</font> &#160; &#160; &#160; &#160; <font color="#660000">bHit </font><font color="#330000">= </font><font color="#000099">False</font> &#160; &#160; &#160;<font color="#000099">End If</font> &#160; <font color="#000099">Next</font> &#160; &#160; <font color="#000099">If</font> <font color="#660000">iHit</font> <font color="#000099">Then</font> <font color="#660000">MultiInStrR</font> <font color="#330000">=</font> <font color="#660000">iHit</font> &#160; <font color="#000099">End Function</font> &#160; &#160; </p> </tt>