Merhaba Sayın @simendifer. Kodunuzu aşağıdaki gibi düzeltin sorununuz çözülecektir. İşlemlerde ufak bir mantık hatası var onu da düzelttim.

Private Sub Metin18_AfterUpdate()

    StrCrt = SARFİYAT.Value

        Select Case StrCrt

            Case 1 To 20

                a = StrCrt * 20

                b = 0

                c = 0

                d = 0

                e = 0

            Case 21 To 30

                a = 20 * 20

                b = (StrCrt - 20) * 25

                c = 0

                d = 0

                e = 0

            Case 31 To 40

                a = 20 * 20

                b = 9 * 25

                c = (StrCrt - 30) * 30

                d = 0

                e = 0

            Case 41 To 50

                a = 20 * 20

                b = 9 * 25

                c = 9 * 30

                d = (StrCrt - 50) * 35

                e = 0

            Case Is > 50

                a = 20 * 20

                b = 9 * 25

                c = 9 * 30

                d = 9 * 35

                e = (StrCrt - 50) * 40

        End Select

End Sub