Dim arr1, arr2

    Dim i As Integer

    Dim say As Integer

    

    If IsNull(Metin1.Value) Or Metin1.Value = "" Then Exit Sub

    arr1 = Array("%52", "% 52", "52%", "52 %")

    arr2 = Array(3, 4, 3, 4) 'uzunluk

    say = 0

    With Me.Metin1

        For i = LBound(arr1) To UBound(arr1)

            If InStr(.Value, arr1(i)) > 0 Then

                say = say + 1

                MsgBox Mid(.Value, 1, InStr(.Value, arr1(i)) - 1) & _

                Mid(.Value, InStr(.Value, arr1(i)) + arr2(i), Len(arr1(i)))

            End If

        Next

    End With



    If say = 0 Then MsgBox "Aranan bulunamadi"

    Erase arr1: Erase arr2