الأخ الكريمابو حمادة
السلام عليكم
استبد الكود بالكود التالى
Private Sub CommandButton1_Click()
If Val(TextBox1.Text) > Val(Me.TextBox2.Text) Then MsgBox "ÚÝæÇ áÇíæÌÏ ÑÕíÏ ßÇÝí ÇáÑÕíÏ ÇáãæÌæÏ " & vbCr & vbCr & (Me.TextBox2.Value), 16, "ÊÍÐíÑ": Me.TextBox1.SetFocus: Exit Sub
UserForm2.Show
End Sub