sName = txtAuswahl(0).Text 'Wort das gefunden werden soll
 
    s = rtb1.Text
    start = 1
    ende = Len(s)
 
    Do
        start = rtb1.Find(sName, start, ende)
        If start = -1 Then Exit Do
        rtb1.SelStart = start
        rtb1.SelLength = Len(sName)
        rtb1.SelColor = RGB(255, 0, 0)
        start = start + 1
    Loop Until start > ende