Function FindWord(ByVal txt As String, ByVal tofind As String) As Collection
 
Set FindWord = New Collection
If tofind = "" Then Return
If Len(txt) < Len(tofind) Then Return
 
Dim pos As Integer
pos = 1 - Len(tofind)
 
Do
    pos = pos + Len(tofind)
    pos = InStr(pos, txt, tofind)
    If pos > 0 Then FindWord.Add pos
Loop While pos > 0 And pos < Len(txt) - Len(tofind)
 
End Function
 
 
 
Public Function AddCollections(c1 As Collection, c2 As Collection) As Collection
 
Set AddCollections = New Collection
Dim i%
For i = 1 To c1.Count
   AddCollections.Add c1.Item(i)
Next i
For i = 1 To c2.Count
   AddCollections.Add c2.Item(i)
Next i
 
End Function
 
 
Public Sub DemoFind()
 
Dim txt As String
txt = "alle meine entchen o schwimmen o; auf o dem o; see"
 
Dim tofind(1) As String
tofind(0) = "o"
tofind(1) = "schwimmen"
 
Dim i%, founded As Collection, total As New Collection
 
For i = 0 To UBound(tofind)
   Set founded = FindWord(txt, tofind(i) & " ")
   'Ergebnis speichern
   Set total = AddCollections(total, founded)
 
   Set founded = FindWord(txt, tofind(i) & ";")
   'Ergebnis speichern
   Set total = AddCollections(total, founded)
 
   Set founded = FindWord(txt, tofind(i) & "&")
   'Ergebnis speichern
   Set total = AddCollections(total, founded)
Next i
 
End Sub