how to find all positions of string in a string ?

how to find all positions of string in a string ?

I have two subroutines The First Find and count the number of Occurrences of searched string and after it calls to another
subroutine that find the first position of the searched string and popup message box with the string before and after the founded string using mid

for your convenience Here is the code

Please Login or Register  to view this content.

But How do I need to add / change the code for getting the other Occurrences


Regards To all Answers

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: since you're new, I've done it for you, this time.

Is this a homework assignment?

Please see the yellow banner on how to attach a sample worbook: it is much easier to produce a solution when we have data/expected results to work with.