تعديل كود اظهار رسالة تحذير

Private Sub TextBox3_AfterUpdate()

    Dim myCell As Range, b As Boolean, s As String



    For Each myCell In Range("C2:C4")

        If Val(TextBox3.Value) > myCell Then

            b = True

            s = s & IIf(s = Empty, "", vbCrLf) & myCell.Address & " - " & myCell.Value

        End If

    Next myCell

    

    If b Then MsgBox "The Availble Brand Is " & vbCrLf & s

End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

  Dim f As Range

  If TextBox2.Value = "" Then

    MsgBox "Enter Brand"

    TextBox2.SetFocus

    Exit Sub

  End If

  If TextBox3.Value = "" Then Exit Sub

  If TextBox3.Value <= 0 Or Not IsNumeric(TextBox3.Value) Then

    Cancel = True

    MsgBox "Enter a valid value"

    Exit Sub

  End If

  Set f = Sheets("ورقة1").Range("B:B").Find(TextBox2, , xlValues, xlWhole)

  If Not f Is Nothing Then

    If f.Offset(, 1) < Val(TextBox3) Then

      MsgBox "Available is : " & f.Offset(, 1)

      Cancel = True

    Else

      MsgBox "ok"

    End If

  Else