Dim aa As Integer aa = (Val(TextBox1.Text) Mod 2) If aa = 0 Then MsgBox("هذا عدد زوجي") Else MsgBox("هذا عدد فردي") TextBox1.Clear() End If