[السيد الغالي]

السلام عليكم
تم عمل المطلوب في المرفقات 
ارجو اخباري اذا كان هذا هو المطلوب
تحياتي لك
اما بخصوص الكود الذي ارفقتيه في ردك السابق فيرجى ملاحظة التعديل
If Val(Text3.Text) >= 50 And Val(Text3.Text) <= 59 Then
Text3.Text = 50
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
ElseIf Val(Text3.Text) >= 60 Then
Text3.Text = Val(Text3.Text) - 10
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
End If