' Text2 = Textbox, in der der zu suchende Text eingegeben wurde
    ' Text1 = Textbox, in der der Text steht, der durchsucht wird
 
    Dim SuchTxt As String
    Dim i       As Integer ' Nur zum Zählen
    Dim j       As Integer ' Bestimmt die Cursorposition im Text
    Dim WieOft  As Integer ' Wie oft wurde der Text gefunden
 
    If Trim(Text2.Text) = "" Then
        MsgBox "Sie haben keine Suchtext eingegeben"
        Exit Sub
    End If
    If Trim(Text1.Text) = "" Then
        MsgBox "Sie haben keinen Text eingegeben, der durchsucht werden soll"
        Exit Sub
    End If
 
    SuchTxt = UCase(Text1.Text)
    WieOft = 0
    j = 1
    Do
        i = InStr(j, SuchTxt, UCase(Text2.Text))
        If i > 0 Then
            WieOft = WieOft + 1
        End If
        j = i + 1
    Loop While Not i = 0
    MsgBox WieOft