Dim a, b, c, d, w, k, r, t, y, u, f, g As Integer

        a = Val(TextBox44.Text)
        b = Val(TextBox45.Text)
        c = Val(TextBox46.Text)
        d = Val(TextBox47.Text)
        w = Val(TextBox48.Text)
        k = Val(TextBox49.Text)
        r = Val(TextBox50.Text)
        t = Val(TextBox51.Text)
        y = Val(TextBox52.Text)
        u = Val(TextBox53.Text)
        f = Val(TextBox54.Text)
        g = Val(TextBox55.Text)

        If a >= 50 And b >= 50 And c >= 50 And d >= 50 And w >= 50 And k >= 50 And r >= 50 And t >= 50 And y >= 50 And u >= 50 And f >= 50 And g >= 50 Then

            Me.TextBox56.Text = "ناجح"

        Else
            Me.TextBox56.Text = "راسب "

        End If