txt = "fjskdfh><ofksodf><pfodf"
    suchtxt = "odf"
 
    gefunden = 0
    position = 1
    Do
        posi = InStr(position, txt, suchtxt)
        If posi <> 0 Then
            gefunden = gefunden + 1
            position = posi + 1
        Else
            Exit Do
        End If
    Loop
 
    e = MsgBox(gefunden)