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