Merhaba, aşağıdaki kodu modüle kaydet.

Function MetinVeriBul(GMetinTumu As String, GIlkKelime As String, GIkinciKelime As String) As String

Dim lngIlkKelime As Long

Dim lngIkinciKelime As Long



lngIlkKelime = InStr(1, GMetinTumu, GIlkKelime, vbTextCompare)



If lngIlkKelime > 0 Then



    lngIlkKelime = lngIlkKelime + Len(GIlkKelime)

    lngIkinciKelime = _

    InStr(lngIlkKelime, GMetinTumu, GIkinciKelime, vbTextCompare)

    

    If lngIkinciKelime > 0 Then

        MetinVeriBul = Mid$(GMetinTumu, lngIlkKelime, (lngIkinciKelime - lngIlkKelime) + 1)

    Else

        MetinVeriBul = vbNullString

    End If

    

Else



    MetinVeriBul = vbNullString

End If





End Function

Formda da

Me.BulunanMetin = MetinVeriBul(Me.MetninTamami, " exercitation ", " aliquip ")

şeklinde kullan