Public Function PositionOfNthOccurence (nthOccurence as Integer, SearchString as String, SearchSubString as String) as Integer
Dim i as Integer
Dim CurrentPos as Integer
   
   CurrentPos = 0
   For i = 1 to nthOccurence
      PositionOfNthOccurence = Instr(CurrentPos + 1, SearchString, SearchSubString)
      CurrentPos = PositionOfNthOccurence
   Next 'i

End Function