şöyle bir şey yazdım olmuş mu

Private Function bulyuzde(metin As String) As Integer

On Error GoTo Err_hata



    Dim index As Integer

    Dim yuzde As Integer

    yuzde = 0



    index = InStr(metin, "%")

    

    If (index = 1) Then

        If (Mid(metin, index + 1, 1) = " ") Then

            If IsNumeric(Mid(metin, 3, 2)) Then

                yuzde = Mid(metin, 3, 2)

            End If

        Else

            If IsNumeric(Mid(metin, 2, 2)) Then

                yuzde = Mid(metin, 2, 2)

            End If

        End If

    ElseIf (index = 3) Then

        If IsNumeric(Mid(metin, 1, 2)) Then

            yuzde = Mid(metin, 1, 2)

        End If

    ElseIf (index > 3) Then

        If (Mid(metin, index - 1, 1) = " ") Then

            If IsNumeric(Mid(metin, index - 3, 2)) Then

                yuzde = Mid(metin, index - 3, 2)

            End If

        Else

            If IsNumeric(Mid(metin, index - 2, 2)) Then

                yuzde = Mid(metin, index - 2, 2)

            End If

        End If

    End If

    

Exit_kod:

    bulyuzde = yuzde

    Exit Function



Err_hata:

    yuzde = 0

    MsgBox Err.Description

    Resume Exit_kod

End Function